UNCLASSIFIED 


_ AD  NUMBER _ 

AD890303 

LIMITATION  CHANGES 
TO: 

Approved  for  public  release;  distribution  is 
unlimited. 


FROM: 

Distribution  authorized  to  U.S.  Gov't,  agencies 
only;  Test  and  Evaluation;  NOV  1971.  Other 
requests  shall  be  referred  to  Air  Force  Weapons 
Lab.,  Kirkland  AFB.  NM. 


_ AUTHORITY 

AFWL  ltr  16  Mar  1972 


THIS  PAGE  IS  UNCLASSIFIED 


AD  890303 


A  CALCULATION  OF  THE  BLAST  WAVE  FROM 
THE  CONSTANT  VELOCITY  DETONATION  OF 
AN  EXPLOSIVE  SHEET 


Osrald  O.  leifh 
Major  USAE 


TECHNICAL  REPORT  NO.  AEWL.IR.7M97 


Novanbar  1t7l 


AM  EORCf  WEAPONS  LABORATORY 
Air  Hru  SviWai  Cam 
KWftasd  AW  Eatfe  l«M 
Nov  Masks 


/V-D  D  C  _ 

- 

..k 


10  HI? 

i  tees  u 

B 


Distribution  Halted  to  IS  Cow mat  at  attaclsa  ealy  Wr«»«  test  sad  mlMtla 
laformstloa  la  dlictsitd  la  0»a  report  (Vov  71).  Otter  rs*  seats  fsr  Ule  Wes 
■sat  oust  bs  ra  far  rad  to  AfVL  (MV),  Unload  Aft.  m,  17117. 


DISCLAIMER  NOTICE 


THIS  DOCUMENT  IS  BEST 
QUALITY  AVAILABLE.  THE  COPY 
FURNISHED  TO  DTIC  CONTAINED 
A  SIGNIFICANT  NUMBER  OF 
PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


AIVL-T1-71-137 


au  rota  vtAfan  ladodatory 

Air  Fere*  Sirs t mb  Coens  nd 
Klrtlmd  Air  Fore*  lu« 
Ikv  Nesico  17117 


IAm  CS  Covtnwit  Irwtiii,  spec  ideations,  or  other  data  are  used  for 
any  purpose  other  than  a  definitely  related  Go varment  procurement  operation, 
the  Gn  Vermont  the  retv  Incurs  no  responsibility  nor  any  obligation  whatsoever, 
and  the  fact  Chat  the  Government  nay  have  formulated,  furnished,  or  in  any  way 
supplied  the  said  drawings,  specif  lent  lone,  or  other  data,  is  not  to  be 
regarded  by  implication  or  otherwise,  as  in  any  manner  llceneing  the  holder 
or  any  ether  person  er  corporation,  or  conveying  any  rights  or  permission  to 
manufacture,  uee,  er  sell  any  patented  invention  that  nay  in  any  way  be 
related  thereto. 

Thla  report  la  made  available  for  study  with  the  understanding  that 
proprietary  Interests  la  and  relating  thereto  will  not  bo  iapalred.  In  case 
of  apparent  conflict  or  any  other  questions  between  the  Government's  rights 
and  those  ef  others,  notify  the  Judge  Advocate,  Air  Force  Systeass  Coumand, 
Andrews  Air  Force  base,  Washington,  DC  20331. 

DO  WOT  DCYCTK  THIS  COPY.  ftfTAlN  01  DESTDOT. 


A  CALCULATION  OF  THE  BLAST  WAVE  FROM  THE 
CONSTANT  VELOCITY  DETONATION  OF  AN 

* 

EXPLOSIVE  SHEET 

Gerald  G.  Leigh 
Major  USAF 


f  TECHNICAL  REPORT  NO.  AFVL-TR-71-137 

' 


Distribution  limited  to  (JS  Government  agencies  only  because  test  and  evaluation 
information  is  discussed  in  the  report  (Nov  71).  Other  requests  for  this  docu¬ 
ment  must  be  referred  to  AFWL  (DEV),  Kirtlnnd  AFB,  NM,  87117. 


AIVL-T1-71-137 


FOREWORD 


This  nittrch  was  performed  inder  Proem  Element  6260 IF,  Project  06CS. 

IndialM  date*  of  rtaaarch  ware  July  1969  through  Jini  1971.  The  report 
wee  admitted  13  October  1971  by  the  Air  Force  Weapons  Laboratory  Project 
Officer,  Major  Gerald  C.  Leigh  (DEV). 

lhla  report  waa  presented  to  the  Arizona  itate  University  Engineering 
Department  In  partial  fulflllaent  of  the  req id  resents  for  che  degree  of  Doctor 
of  Fhlloaophy. 

The  author  la  deeply  grateful  to  the  aenbers  of  his  academic  coemit  tee  and 
particularly  to  his  advisor,  Dr.  Donovan  L.  Evans,  for  the  guidance,  suggestions, 
and  encouragement  provided  throughout  this  study.  Acknowledgement  la  extended 
to  Mr.  Charles  E.  Neediaa  of  the  Air  Force  Weapons  Laboratory  for  his  assistance 
In  working  with  the  SHELL  and  SHPLOT  codes.  Further  acknowledgement  la  given 
Captain  Gragg  Canavan  and  Lieutenant  Stephen  Rockwood  for  their  guidance  and 
help  In  indent  an  ding  the  postdetonation  coobuatlon  reactions.  Acknowledgement 
la  also  due  Arizona  State  Univenlty  and  the  Air  Force  Institute  of  Technology 
for  the  opportunity  to  pursue  these  studies. 

This  technical  report  has  been  reviewed  and  is  approved. 


GERALD  G.  LEIGH  9 
Major,  USAF 

Chief,  Facilities  Survivability  Branch 
Project  Officer 


WILLIAM  B.  LIDDICOET 


Colonel,  USAF 
Chief,  Civil  Engini 
Division 


ring  Research 


11 


AIVL-TR-71-137 


ABSTRACT 

(Distribution  Limitation  Statement  B) 


Predictions  of  the  blast  wave  from  the  constant  velocity  detonation  of  a  thin 
explosive  sheet  have  not  previously  considered  the  contribution  of  the  poet- 
detonation  combustion  of  the  detonation  products.  This  problem  is  simplified 
by  first  considering  the  explosive  material  as  releasing  only  energy  Into  an 
ideal  gas  mediun.  This  is  solved  for  several  energy  densities  and  velocities 
of  detonation.  An  expression  that  can  predict  the  shape  and  location  of  the 
shock  front  from  a  line  source  of  energy  in  a  hypersonic  flow  is  then  developed. 
The  problem  is  more  realistically  modelled  by  considering  the  explosive  sheet 
to  release  six  distinct  mass  species,  as  well  as  energy.  Into  a  mixture  of 
nitrogen  and  oxygen.  Results  of  this  study  shift  the  shock  front  to  a  position 
inside  the  previously  determined  shock  front.  Using  the  dissociation  of  molec¬ 
ular  oxygen  as  the  determinant  for  the  reaction  rate  of  combustion,  and  models 
for  material  miring,  the  contribution  of  postdetonation  combustion  (PDC)  to  the 
total  energy  is  determined.  The  mass  and  energy  addition  problems  were  then 
recomputed  with  PDC  included.  Results  indicate  that  while  significant  amounts 
of  energy  are  released  by  PDC,  they  are  small  compared  to  the  energy  released 
by  the  detonation,  and  there  is  essentially  no  contribution  from  PDC  in  the 
early  time  formation  of  the  blast  wave. 
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SECTION  I 


INTRODUCTION 

The  problem  of  predicting  the  blest  effects  frost  explo¬ 
sions  hes  been  of  interest  ever  since  the  use  of  explosive 
materials  began.  Historically,  the  approach  has  been  one  of 
"trial  and  error.”  This  has  not  been  very  successful  until 
recent  years  when  adequate  electronic  instrumentation  became 
available.  Calculational  efforts  were  rare.  Only  in  the 
last  thirty  years  have  calculations  taken  any  degree  of  so¬ 
phistication.  Calculations  of  the  blast  effects  from  various 
explosive  nuterials  in  several  geometric  arrays  have  been 
completed  in  the  pact  ten  years.  Of  particular  recent  inter¬ 
est  are  the  blast  effects  from  a  large,  relatively  thin  sheet 
of  explosive  material  when  the  detonation  is  initiated  uni¬ 
formly  along  one  edge  and  permitted  to  propagate  along  the 
length  of  the  sheet.  It  is  toward  the  theoretical  determina¬ 
tion  of  the  blast  effects  from  such  an  explosive  arrangement 
that  this  work  is  directed. 

BACKGROUND 

Perhaps  the  most  significant  early  calculation  of  air- 
blast  phenomena  was  accomplished  by  G.  I.  Taylor  in  1941  (1). 
He  considered  an  instantaneous  release  of  a  point  source  of 
energy  in  an  ideal  gas  and  was  able  to  find  a  similarity  so¬ 
lution  by  making  a  strong  shock  approximation.  Sedov  (2) 
and  Von  Neumann  (3)  later  confirmed  Taylor's  results.  Lin  (4) 
and  Sakurai  (5)  applied  Taylor's  technique  to  the  line  and 
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•bMt  aovrct  of  Mtryy.  The  dsvslopmast  of  am  Artificial 
viscosity  concept  by  tiofctayer  aal  Vom  Inhm  (!)  provided 
•  aiaas  for  numerically  uttfratiag  across  shock  discoatiat* 
ities,  opening  ths  way  for  use  of  aodam  numerical  ooapau- 
tion  techniques  in  blast  vava  calculations.  brode  (7)  uaod 
this  technique  in  hie  numerical  treatment  of  the  point  aourca 
in  ideal  gas  and  was  able  to  »vtend  the  eolution  to  ouch 
lover  overpreasurea  where  the  atrong  ahock  approximation 
could  not  be  applied.  The  name  problem  was  addraaaad  Inde¬ 
pendently  by  Goidatine  and  Von  Neumann  (!)  uaing  a  different 
numerical  computation  scheme.  A  repeat  of  the  point  source 
problem  by  Rrode  using  a  real  equation  of  state  for  air  (9) 
provided  the  first  realistic  calculation  of  a  blast  wave  in 
air.  Other  caleuJUttann  by  brode,  such  as  the  detonation  of 
a  sphere  of  TNT  in  air  (10)  and  the  expansion  of  a  hlgh- 
tenperaf urs ,  ssure  sphere  of  hot  gast*  in  air  (11) , 

soon  followed.  All  work  described  thus  far  has  been  one¬ 
dimensional  ,  generally  with  spherical  symmetry,  and  has  led 
to  the  development  of  numerous  one-dimensional  hydrodynamic 
computer  codes  (12,  13,  14). 

Zn  the  late  1950's,  considerable  interest  in  two- 
dimensional  calculations  began  to  appear.  A  major  contribu¬ 
tion  by  Marlow  (15)  was  his  development  of  the  partlcle-ln- 
cell  (PIC)  computing  method  wherein  distinct  particles  of 
mass  are  permitted  to  move  through  a»  Eulerian  grid  in  a  man¬ 
ner  satisfying  the  conservation  equations.  Prom  this  work 
have  evolved  several  families  of  sophisticated  two-dimensional 
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hydrodynamic  computer  codas  usaful  in  solving  a  variety  of 
problems  Including  hypervelocity  impact,  supersonic  flow, 
blast  wave  propagation,  etc.  The  SHELL  family  of  hydrody¬ 
namic  codes  (16,  17)  is  representative.  In  the  SHELL  codes 
the  basic  computational  scheme  is  similar  to  the  PIC  codes 
except  that  the  mss  distributed  throughout  the  Eulerian  grid 
is  considered  to  be  continuous  with  mss  transport  from  cell 
to  cell  being  accomplished  as  a  continuum  rather  than  as  dis¬ 
crete  particles.  Numerous  blast-wave  calculations  have  been 
performed  using  the  SHELL  codes  (18,  19,  20),  and  development 
to  encompass  a  greater  variety  of  problems  continues. 

Perhaps  the  ax>st  sophisticated  family  of  two-diMnsional 
computer  codes  is  AFTON,  develop d  by  Trulio  (21).  These 
codes  can  be  «»c«u  for  solving  problems  in  continuum  Mchanics 
including  the  blast  load  defonaation  and  motions  of  elasto- 
plastic  Mterials  such  as  soil. 

STATEMENT  OF  THE  PROBLEM 

In  recent  years  large  quantities  of  explosive  materials 
have  been  used  in  the  simulation  of  nuclear  blast  effects  (22, 
23) .  One  simulation  method  of  considerable  interest  utilizes 
detonating  cord  wrapped  around  a  flat  wooden  rack  and  deto¬ 
nated  in  an  earth  cavity  (24).  it  has  be.n  proposed  to  re¬ 
place  the  detonating  cord  with  large,  relatively  thin  sheets 
of  explosive  materials.  The  blast-wave  properties  of  sheet 
explosives  are  thus  of  immediate  interest. 

Consider  a  sheet  of  explosive  material  a  few  centimeters 
thick  having  an  infinite  length  and  width.  A  detonation  is 
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initiated  uniformly  along  one  edge  and  allowed  to  proceed 
evenly  along  the  aheet  at  the  inherent  velocity  of  detonation 
of  the  explosive  material  (Figure  1).  Viewed  along  one  edge, 
the  sheet  approaches  a  line,  and  the  detonation  becomes  a 
point  moving  along  this  line.  The  problem  is  thus  two* 
dimensional  with  a  plane  of  symmetry  along  the  center  line 
of  the  explosive  sheet  (Figure  2) . 

The  detonation  proceeding  along  the  explosive  sheet  is 
considered  to  be  a  classical  Chapman-Jouguet  detonation  pro¬ 
cess  (37) .  After  proceeding  some  distance  from  the  point  of 
initiation,  the  process  becomes  essentially  steady  state. 

As  a  result  of  the  detonation  process,  detonation  products 
are  produced  and  a  large  quantity  of  explosive  energy  is  re¬ 
leased.  These  hot,  prisiarily  gaseous,  detonation  products 
expand  and  compress  the  surrounding  medium,  which  in  most 
cases  is  air,  resulting  in  the  formation  of  a  shock  wave  and 
a  particle  flow  behind  the  shock.  The  shock  waves  moves  with 
the  point  of  detonation  and  when  steady  state  is  reached  the 
shock  wave  assumes  a  fixed  shape  such  that  the  properties  be¬ 
hind  the  wave  do  not  vary  with  time. 

At  the  onset  of  expansion  of  the  detonation  products  a 
distinct  interface  exists  between  these  products  and  the  sur¬ 
rounding  air.  However,  as  expansion  proceeds,  this  interface 
becomes  less  distinct  as  mixing  and  diffusion  take  place. 
Finally,  at  considerable  distance  from  the  point  of  detona¬ 
tion,  wholesale  mixing  has  occurred  and  an  essentially  uni¬ 
form  mixture  of  gases  exists  over  a  large  volume. 
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Most  explosive  materials  (TNT,  PETN,  RDX,  etc.)  are 
highly  oxygen  negative,  i.e.,  all  available  oxygen  is  con¬ 
sumed  in  the  detonation  reaction  and  excess  combustible  ma¬ 
terials  are  released  as  detonation  products.  As  these  hot 
detonation  products  mix  with  the  surrounding  air,  a  post  det¬ 
onation  combustion  (PDC)  process  occurs  and  additional  energy 
is  released.  However,  the  blast  contribution  from  this  PDC 
energy  release  is  low  because  the  release  is  distributed  over 
a  large  spatial  volume  and  over  a  long  period  of  time.  The 
extent  to  which  this  PDC  affects  the  blast  wave  and  the  prop¬ 
erties  behind  the  shock  front  is  not  well  known  and  of  con¬ 
siderable  interest. 

APPROACH 

Determining  the  blast  wave  properties  associated  with 
this  explosive  arrangement  is  first  approached  by  idealizing 
the  problem.  The  sheet  of  explosive  material  is  considered 
to  have  no  mass  such  that  the  line  of  detonation  becomes  a 
a  constant  line  source  of  energy.  The  surrounding  medium  is 
considered  to  be  an  ideal  gas.  Consideration  is  given  to  a 
closed  form  analytical  solution  but  little  hope  of  finding 
such  a  solution  exists.  The  idealized  problem  is  then  solved 
by  using  a  finite  difference  computational  technique  (a  SHELL 
hydrodynamic  code) .  An  empirical  fit  to  the  numerically  ob¬ 
tained  solution  is  obtained. 

Next,  a  more  realistic  approach  to  the  problem  is  taken. 
The  explosive  sheet  is  considered  to  be  insignificantly  thin, 
but  to  have  finite  mass  and  energy.  A  multimaterial 


computational  cod*  is  developed  using  *  multimaterial  aqua¬ 
tion  of  state.  Tha  propartiea  and  detonation  products  froai 
a  TNT  detonation  are  used  with  this  code  to  obtain  a  solution 
which  accounts  for  the  release  of  mass  from  the  detonation 
process. 

Finally,  the  post-detonation  combustion  of  the  detona¬ 
tion  products  by  the  oxygen  in  the  surrounding  air  is  consid¬ 
ered.  A  simplified  combustion  scheme  is  incorporated  into 
the  multimaterial  code  above,  and  the  previous  problems  are 
solved  with  PDC  included. 

The  results  of  the  above  three  computational  schemes 
are  compared  and  the  effect  of  PDC  on  the  shape  and  location 
of  the  blast  wave  is  determined. 


SECTION  ZZ 


THE  IDEALISED  PROBLEM 

To  examine  the  blast  wave  from  a  sheet  explosive  in  its 
simplest  form  we  make  several  idealising  assumptions.  Look¬ 
ing  at  the  sheet  along  one  edge  (2  dimensions) ,  we  first  con¬ 
sider  the  explosive  to  have  no  mass  and  to  be  a  pure  source 
of  energy  concentrated  along  a  line.  The  line  of  detonation 
becomes  a  line  source  of  energy  perpendicular  to  the  x-y 
plane  (see  Figure  3)  and  appears  as  a  point  moving  along  the 
plane  of  symmetry  at  a  fixed  velocity  and  releasing  a  con¬ 
stant  amount  of  energy  for  each  unit  of  length  that  it  tra¬ 
verses.  The  medium  through  which  this  point  source  moves  is 
considered  to  be  an  ideal  gas.  Further  clarification  can  be 
gained  by  changing  coordinates,  fixing  the  line  of  detonation 
in  space,  and  letting  the  background  flow  past  this  point. 
Since  most  velocities  of  detonation  (10,000  to  20,000  fps) 
well  exceed  the  sonic  velocity  in  the  surrounding  medium  the 
flow  produced  by  the  change  of  coordinates  is  hypersonic 
(M  >  10) .  The  problem  is  thus  reduced  to  the  two-dimensional 
plane  symmetric  case  of  a  constant  line  source  of  energy  in 
a  steady  hypersonic  flow. 

ANALYTIC  SOLUTION 

The  surrounding  medium  is  considered  to  be  an  inviscid, 
compressible  ideal  gas  having  a  specific  heat  ratio  of  1.4. 
Heat  conduction  and  gravitational  effects  are  ignored.  The 
governing  equations  for  steady  flow  are 
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where 

C  ia  the  energy  deposited  par  unit  volume  par  unit  tine 
u  and  v  ara  the  valocitiaa  in  tha  x  and  y  directions 
P  is  the  pressure 

p  is  the  density 

a  is  the  specific  internal  energy. 


These  equations  can  be  coefcined  and  reduced  to  the  fol¬ 
lowing  form 
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This  is  s  nonlinear,  inhomogeneous ,  1st  order  differential 
equation  with  four  dependent  variables  (u,  v,  p,  p)  and  two 
independent  variables  (x,  y) . 

Nunerous  approaches  to  finding  an  exact  or  a  nonnumeri- 
cal  approximate  solution  to  these  equations  have  been  at¬ 
tempted,  but  so  far  without  success.  The  methods  tried  are 
described  below. 

Similarity  Approach  —  The  1-D,  unsteady  flow  resulting 
from  the  instantaneous  release  of  a  fixed  quantity  of  energy 
at  a  point,  along  a  line,  or  on  a  plane  is  self-similar  dur¬ 
ing  the  early  tines  when  the  blast  pressures  are  large  com¬ 
pared  to  the  ambient  pressure.  Numerous  investigators  (1,  2, 
3,  4,  5)  have  utilized  this  characteristic  to  reduce  the  num¬ 
ber  of  independent  variables  and  thus  obtain  solutions  to 
blast-wave  problems.  A  similarity  solution  to  the  prerent 
problem  was  considered.  Poliowing  the  method  of  Sedov  fes  de¬ 
scribed  by  Korobeinikov  (26) ,  the  dimensionality  of  all  the 
variables  and  parameters  in  this  problem  was  considered.  The 
number  of  constants  with  independent  dimensions  which  could 
be  formed  was  found  to  be  three.  The  problem  wat  not  self- 
simulating,  then,  according  to  the  criteria  defined  by  Koro¬ 
beinikov,  and  further  consideration  of  a  similarity  solution 
was  aband^..ed. 

Hypersonic  Flow  -  Point  Explosion  Approach  —  During  the 
literature  search  several  papers  describing  the  use  of  point 
scarce  explosions  to  simulate  hypevsonic  flow  past  various 
bodies  were  encountered  (27,  28).  Consideration  was  given  to 
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using  one  of  Umm  method*  with  the  present  problem.  lyper- 
ionic  flow  simulation  is  bsssd  on  an  "equivalence  principle" 
stated  by  Kayes  and  Probe  tain  (29,  pg.  37)  as  the  "the  equiv¬ 
alence  of  a  3-0  physical  p  rob  lee  to  a  2-0  unsteady  problem 
with  a  paraneter  or  a  2-0  or  axisyxsaetric  physical  problee 
to  a  1-0  unsteady  problee  with  a  paraneter.*  Stated  in  an¬ 
other  way,  the  "equivalence  principle"  is 

"The  flow  as  viewed  in  any  transverse  plane  is  in¬ 
dependent  of  the  flow  in  any  other  transverse  plane. 

In  the  2-0  physical  case  we  nay  liken  the  flow  in 
a  given  transverse  plane  to  the  flow  in  a  cylinder 
driven  by  a  piston. 

Thus,  in  the  2-0  hypersonic  flow  over  a  body,  the  flow 
is  any  transverse  plane  can  be  considered  as  a  function  of 
one  space  dimension  and  timej  the  flow  in  this  plane  is  self- 
similar.  Therefore,  it  is  the  same  as  the  flow  outward  from 
a  point  or  line  source  of  energy  and  different  energy  sources 
can  b«<  used  to  simulate  different  bodies  in  hypersonic  flow. 

When  these  concepts  were  brought  to  bear  on  the  ire  sent 
problem,  it  was  apparent  that  the  flow  in  any  transvei  - 
plane  in  the  present  problem  is  not  self-similar  and  is  not 
Independent  of  any  other  transverse  plane,  at  least  not  near 
the  origin  or  the  region  between  the  origin  and  the  forward- 
most  portion  of  the  shock  wave. 

Hodoqraph  Transformation  Approach  —  A  method  in  common 
use  for  solving  compressible  flow  problems  is  that  of  the 
hodograph  transformation  as  explained  by  Von  Mises  (30).  In 
this  method,  the  dependent  and  the  independent  variables  are 
interchanged  by  using  a  Jacobian  of  the  form 
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Mmq  this  Jacobian  ia  applied  to  a 
liar  to  tha  aquation 


>ua  aquation  aim- 
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one  obtains 


(•*  -  ?)$ft  -  Wife  ♦  15)  M*2  -  *)ft  J  ■ 0  <»> 

and  since  tha  aquation  is  homogeneous  one  can  multiply  out 
the  Jacobian  to  obtain  a  linear  aquation 

lu*  -  ?)ft  *  uv(ft  ♦  ft)  ♦  (*2  -  ^(ft  ■  0  <l#> 

Mum  this  approach  ia  triad  with  the  present  problem  tha 
Jacobian  cannot  be  multiplied  out  since  equation  6  ia  not 
hosK>geneous.  One  obtains 

(«*  .  *)£  -  uv(|S  ♦  £)  ♦  (v*  -  *)g  .  J(1  .  y)i  «„ 

where  J  ■  J(x,  y)  and  is  unknown. 

We  consider  the  possibility  of  evaluating  the  term 
J(1  -  y)E  realising  that  E  la  very  small  at  all  locations  ex¬ 
cept  near  the  origin. 


_  l  _  1 
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Consideration  of  the  physics  of  ths  problem  leads  to  the  con¬ 
clusion  that  nsar  the  origin 

dv  3v 

■  0  '3y  *  some  finite  nuaher 

(13) 

■  0  «  some  finite  number 

which  results  in  j  -  0  and  the  term  J(1  -  y)®  goes  from  es¬ 
sentially  zero  at  all  points  not  near  the  origin  to  an  in¬ 
finite  value  near  the  origin.  The  reasoning  behind  the  con¬ 
clusion  that  3u/3x  *  0  near  the  origin  Is  that  along  the  x- 
axis  the  x-component  of  velocity  drops  from  the  hypersonic 
value  before  the  shock  to  a  subsonic  value  immediately  be¬ 
hind  the  shock.  Then,  since  it  is  flowing  against  an  increas¬ 
ing  pressure  gradient  as  it  approaches  the  point  source  of 
energy,  it  continues  to  decrease  in  magnitude  until  it  reaches 
the  origin  where  the  line  source  of  energy  is  located.  Then 
beyond  the  origin,  the  x-component  of  velocity  begins  to  in¬ 
crease  because  the  pressure  is  now  decreasing  with  increasing 
x.  Thus,  3u/3x  must  be  zero  near  the  origin. 

Prom  the  above  analysis  it  was  concluded  that  the  hodo- 
graph  transformation  could  not  be  used  to  solve  the  presented 
problem. 

Von  Mises*  Approach  for  a  Nonisentropic  Hypersonic  Flow 
Around  a  Body  —  Consideration  was  given  to  solving  the  prob¬ 
lem  of  hypersonic  flow  about  a  point  source  using  a  nonisen¬ 
tropic  method  described  by  Von  Mises  (30).  In  this  method. 

Von  Mises  uses  the  continuity  equation  and  the  equation  for 
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tte  y- component  of  MMntia.  Bo  introduces  o  stroma  function 
and  then  converts  these  equations  to  natural  coordinates  (s, 
n)  that  follow  the  streamlines.  That  is*  the  s  coordinate  is 
tangent  to  the  streamline  and  the  n  coordinate  is  normal  to 
the  streamline  at  any  point  in  the  flow  field.  He  is  thus 
able  to  obtain  an  expression  relating  if,  P ,  q*  pQ*  s  and  n 
where  q  is  the  component  of  velocity  tangent  to  the  stream¬ 
line  (magnitude  of  the  velocity  vector)  *  i>  is  the  stream 
function*  and  pQ  is  a  constant  density  at  some  point  in  the 
flow  field.  He  then  recognizes  that  while  behind  a  curved 
shock  the  entropy  is  not  constant*  it  is  constant  along  any 
streaadine  (for  flow  around  a  body)  and  he  uses  this  fact  to 
obtain  an  expression  relating  P  and  n.  After  much  algebra  he 
is  able  to  obtain  an  expression  of  the  form 


where 

qx,  qy  are  the  respective  components  of  velocity 
A  is  the  local  speed  of  sound 
M  is  the  local  Mach  number 

G1  and  F1  are  known  functions  depending  on  the  boundary 
conditions  at  the  shock. 


. 

For  a  known  material  (such  at  a  perfect  gat)  and  for  flow 
around  a  defined  body  thia  equation  can  be  tolved  to  obtain 
the  entire  flow  field. 

In  attenpting  to  apply  thia  approach  to  the  pretent 
problem  difficulty  wat  immediately  encountered  with  the  en¬ 
tropy  equation.  Whereas  entropy  may  be  constant  along  a 
streamline  for  some  of  the  flow  field,  there  it  at  leaat  one 
atreamline  (at  least  the  one  passing  through  the  origin)  where 
entropy  is  not  constant,  therefore,  this  concept  could  not  be 
applied.  It  was  then  decided  to  try  the  energy  equation 
(equation  4)  to  obtain  relations  between  P  and  n  in  a  manner 
similar  to  Von  Mites ' .  However ,  the  energy  equation  could 
not  be  converted  to  natural  coordinates  because  of  the  in¬ 
homogeneous  term  containing  E  which  is  a  function  of  the  spa¬ 
tial  coordinates  and  not  of  the  velocity  field. 

Approximate  Method  of  Integral  Representations  —  During 
the  literature  search,  a  Soviet  paper  by  P.  I.  Chushkin  and 
Li  Li-kan  (31)  was  discovered  in  which  they  used  an  approxi¬ 
mate  method  of  integral  representation  to  determine  the  2-D 
hypersonic  flow  of  gas  about  a  body.  Their  method  consisted 
of  consolidating  the  continuity  equation,  the  y-component  of 
momentum  equation  and  the  entropy  equation  (Ds/Dt  ■  0)  into 
a  single  expression. 

»A  *i 

jj-  ♦  '3y-  ■  (i  ■  1,  2,  3)  (15) 
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P3  ■  yvpuS  Q3  -  yv(pvS)  T3  ■  0 


2 

and  S  ■  p/p  and  v  ■  0,  1  for  plane  or  ax i symmetric  flow,  re 
spectively. 


where  yQ  (x)  is  the  y  distance  to  the  body  surface  at  any  x 
and  yN(x)  is  the  y  distance  to  the  shock  wave  at  any  x  and 
e(x)  *  y^(x)  -  yQ(x)  is  the  distance  between  the  body  and  the 
shock  wave  and  is  a  function  of  x  only.  The  result  of  this 
transform  applied  to  equation  15  is 

a  3(P,e) 

+  y^)l  +  -  Ti£  (1  =  1,  2,  3)  (16) 

They  next  divide  the  flow  region  between  yQ(x)  and  yN(x)  into 
bands  of  equal  width  designated  by  C2  •••  $N  where 

is  the  body  surface  and  =  1  is  the  shock  wave.  They  then 
integrate  equation  16  over  these  bands  to  obtain 
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In  the  above  they  have  used  Leibnitz'  rule  to  obtain 
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(19) 


and  have  assumed  the  last  two  terms  to  be  approximately 
equal  for  n-2  close  enough  to  n. 

They  then  approximate  the  integrands  in  the  above  ex¬ 
pressions  with  2nd-order  polynomials  and  perform  the  desig¬ 
nated  differentiation  with  respect  to  x.  They  thus  arrive 
at  a  series  of  ordinary  differential  equations  which  can  be 
solved  for  the  slopes  of  the  various  flow  variables. 

In  attempting  to  apply  this  method  to  the  present  prob¬ 
lem  it  was  first  discovered  that  the  governing  equations 
could  not  be  consolidated  into  the  same  general  form  as 
equation  15  because  Ds/Dt  t  0.  The  energy  equation  intro¬ 
duces  additional  terms  in  equation  15  (for  i  ■  3).  Neverthe¬ 
less,  an  expression  similar  to  equation  15  is  obtained,  dif¬ 
fering  only  for  i  «  3. 


19 


The  transformation,  C  ■  (y  -  yQ)/c  was  appliad  and  an 
aquation  similar  to  aquation  16  obtainad.  For  i  »  3  it  has 
the  form 

1*103  -  P3(U')1  ♦  (r  -  2>E  lyKuU')  -v)  ♦  IjIPjC) 

+  (Y  -  2)H  |-(ue)  -  2 (y  -  2)E  ue'  -  e(y  -  1)E  (20) 

.while  for  i  *  1,  2,  it  was  identical  with  equation  16. 

In  studying  the  approximation  made  by  dropping  the  last 
two  terms  of  equation  19,  it  can  be  seen  that  this  approxima¬ 
tion  is  only  valid  at  some  distance  away  from  the  head  of  the 
body.  In  the  region  immediately  behind  the  curved  shock  this 
approximation  is  not  valid  because  d£n/dx  and  d£n_2/dx  are 
both  large  and  different.  Thus,  in  the  present  problem  where 
we  are  interested  in  determining  the  flow  immediately  behind 
the  curved  portion  of  the  shock,  we  cannot  use  the  approxima¬ 
tion.  Chushkin  and  Li-kan  avoid  this  problem  by  picking  up 
the  solution  some  distance  downstream  after  some  other  method 
has  been  used  to  obtain  the  flow  around  the  nose  of  the  body. 
Even  then,  an  attempt  was  ma^e  to  integrate  equation  20  in  a 
manner  similar  to  Chushkin  and  Li-kan.  In  so  doing,  one  ob¬ 
tains  a  series  of  integrals  of  the  form 
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No  method  of  solving  these  integrals  was  discovered  and  meth¬ 
ods  of  approximating  them  soon  became  too  cumbersome  to  be 
practical . 

Termination  of  Search  for  Exact  Solution  —  In  view  of 
the  fact  that  this  idealized  problem  was  only  on  introductory 
portion  of  the  planned  dissertation  study,  it  was  decided 
that  numerical  methods  and  computerized  solutions  were  the 
only  practical  way  to  proceed. 


NUMERICAL  SOLUTION 

The  idealized  problem  (line  source  of  energy  in  a  hyper¬ 
sonic  flow)  was  next  addressed  numerically  using  a  hydrody¬ 
namic  computer  code  named  SHELLTC.  In  this  code  the  2-D 
hydrodynamic  equations  of  continuity,  momentum  and  energy  for 
an  inviscid  compressible  fluid  plus  an  ideal  gas  equation  of 
state  are  converted  to  finite  difference  form  and  utilized  in 
a  computation  algorithm  which,  in  essence,  integrates  these 
equations  in  a  time-marching  sequence.  Pressure,  internal 
energy,  mass  and  two  components  of  velocity  are  the  variables 
accounted  for  throughout  the  flow.  (Sec  Appendix  A  fer  de¬ 
tailed  discussion  of  SHELLTC.) 
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The  computational  solution  is  started  by  establishing  a 
grid  in  cartesian  coordinates  into  which  an  initial  quantity 
of  mass  is  placed.  The  mass  is  distributed  uniforirly  through¬ 
out  all  the  cells  of  the  grid  and  an  initial  velocity,  dens¬ 
ity  and  internal  energy  is  assigned  to  the  mass  in  each  cell. 
This  initial  loading  of  the  grid  represents  the  background 
hypersonic  flow  of  the  line  source  problem  where  the  plane  of 
symmetry  of  the  grid  represents  the  center  of  the  infinitely 
thin  sheet  of  explosive  energy  (Figure  4)  .  An  auxiliary  gen¬ 
erator  code  titled  CLAMTC  is  used  to  construct  the  grid  and 
to  establish  the  initial  flow  conditions.  The  code  records 
this  information  as  the  zero  cycle  on  a  magnetic  tape  (the 
problem  tape)  which  is  then  used  by  SHELLTC  throughout  the 
computation. 

In  the  computational  scheme  of  SHELLTC,  time  moves  for¬ 
ward  in  small  increments  and  a  small  amount  of  mass  transport 
is  accomplished  with  each  time  step.  Thus,  in  the  background 
flow,  mass  moves  uniformly  from  right  to  left,  with  the  in¬ 
coming  flow  from  the  right  being  reestablished  in  the  first 
two  rows  of  cells  at  the  beginning  of  each  time  step.  Mass 
is  permitted  to  flow  out  the  left  and  top  boundaries  of  the 
grid  as  dictated  by  the  flow  computations. 

After  the  satisfactory  background  flow  is  established, 
deposition  of  energy  begins  at  the  point  of  detonation.  The 
amount  of  energy  deposited  is  determined  by  the  strength  of 
the  energy  source  (energy  content  of  the  explosive  sheet)  , 
the  detonation  velocity  and  the  length  of  the  time  step. 
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Figure  4.  Computational  Grid 


The  liM  More*  of  iMrgy  appetra  a«  a  point  of  datooatloa 
on  tbo  pinna  of  symmetry  and  la  adjacent  to  an  arbitrarily 
aalactad  call  (i  -  1,  j  -  15)  along  that  plana.  Oapoaltion  of 
energy  la  accomplished  by  increasing  the  intarnal  energy  of 
that  call  by  tha  amount  of  anargy  dapoaitad.  Thia  process, 
in  tha  aubroutina  COT,  la  accomplished  onca  aach  time  atap. 

Thia  dapoaitlon  of  anargy  raaulta  in  an  lncraaaad  pres- 
aura  in  tha  call  and  a  dlaturbanca  in  tha  flow.  Tha  dia turb¬ 
an  ca  .'tar*. a  at  tha  call  where  anargy  la  dapoaitad  but  imswdi- 
ataly  baglna  to  propagata  farther  out  Into  tha  flow  field. 

As  tha  dlaturbanca  grows,  dramatic  variatlona  in  tha  flow 
variables  bacoaa  apparent  aa  a  a  hock  wave  baglna  to  fora. 

Thia  aarly  disturbance  in  tha  flow  is  clearly  visible  in  Fig¬ 
ure  5.  Thia  shock  wave  continues  to  move  outward  and  to  tha 
left  in  tha  grid  until  steady-state  flow  condition  a  are 
reached  at  which  tine  tha  shock  wave  becoeea  a  standing  wave 
in  tha  flow  field  and  tha  staady-atata  solution  to  tha  prob- 
lan  is  obtained.  Tha  arrival  of  stoady  state  la  determined 
by  monitoring  tha  sun  of  the  differences  in  magnitude  in  a 
single  flow  variable  (pressure  was  used)  along  one  grid  col¬ 
umn,  cell  by  cell.  This  sum  of  tha  differences  will  start  at 
aero  and  will  increase  to  some  large  value  aa  the  disturbance 
grows  but  returns  exponentially  towards  a  minimum  as  steady 
stato  approaches.  Tha  computation  is  terminated  when  an  ar¬ 
bitrary  low  value  of  this  sum  of  tha  differences  is  obtained. 

A  second  auxiliary  coda,  called  5HPI0TL,  is  used  to 
graphically  depict  selected  portions  of  tha  solution,  which 
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is  stored  on  ttos  problm  tops.  Plots  of  tbs  shock  front  lo¬ 
cation,  pros  sura  contours,  energy  contours,  density  contours 
and  velocity  vector  field  are  obtained. 


The  exact  location  of  the  shock  front  in  the  flow  field 
is  somewhat  arbitrary.  In  real  gases  a  shock  has  a  finite 
structure  over  sons  distance  and  is  not  a  true  discontinuity. 
If,  however,  this  distance  is  snail  relative  to  the  dimensions 
of  the  problem,  it  is  appropriate  to  consider  the  shock  as 
having  no  thickness.  The  effective  viscosity  inherent  in  the 
SHELLTC  code  causes  a  smearing  of  the  shock  over  several  zone 
dimensions  making  it  necessary  to  specify  a  position  of  the 
shock  within  the  computed  structure.  In  a  study  of  the  shock 
structure  associated  with  a  one-dimensional  planar  blast  wave, 
Leigh  and  Yagala  (32)  compared  the  shock  structure  obtained 
from  a  SHELLTC  computation  with  the  planar  similarity  solu¬ 
tion  obtained  by  Sakurai  (5) .  This  work  showed  that  the  dis¬ 
tance  over  which  a  shock  was  spread  was  dependent  upon  the 
zone  size  used  in  the  computation  and  the  effective  viscosity 
associated  with  the  code.  The  location  of  the  shock  discon¬ 
tinuity  as  determined  from  the  similarity  solution  was  chosen 
as  the  actual  shock  location  and  occurred  at  positions  asso¬ 
ciated  with  pressures  of  between  60  percent  and  80  percent 
of  the  peak  pressure  for  cell  dimensions  suitable  to  the  line 
source  problem  (see  Figure  6) .  A  shock  location  at  80  percent 
of  peak  pressure  was  arbitrarily  chosen  for  use  in  this  work. 
The  plotting  code  (SHPLOTL)  was  adapted  to  search  for  the  80 
percent  of  peak  pressure  point  normal  to  the  pressure  gradient 
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and  fora  all  such  points  into  a  smooth  curve.  This  curve  is 
considsrsd  to  be  the  location  of  the  shock  front. 


KKSPLTS  OF  WUKERJCAL  SOLUTIOW 

Zn  order  to  solve  the  point  source  in  hypersonic  flow 
problem,  four  values  of  source  energy  and  detonation  veloci¬ 
ties  were  chosen  for  computational  solutions. 


2 

Energy  (ergs/cm  ) 
7.9  x  io6 
7.9  x  io7 
7.9  x  io8 
7.9  x  io9 


Detonation  Velocity  (cm/sac) 
7.2  x  io5 
3.6  x  io5 
2.4  x  io5 
1.8  *  10S 


The  selection  of  velocity  was  based  on  an  assumed  velocity  of 
available  detonating  sheet  explosives  (7.2  x  io5  cm/sec)  and 
fractions  thereof.  The  explosive  energy  values  were  obtained 
by  considering  sheets  of  explosive  material  1/4-inch  thick 
having  energy  densities  of  10 '  through  10xo  ergs  per  gram 
and  a  density  of  1.25  gram  per  cubic  centimeter.  These  choices 
were  quite  arbitrary  but  were  influenced  by  the  required  com¬ 
putation  time,  the  greater  the  energy  deposition  the  larger 
the  computation  time  required.  The  computer  runs  were  made 
using  a  CDC-3400  for  the  low  energy  levels  and  a  CDC-6600  for 
the  higher  energy  levels. 

8  2 

The  results  for  the  energy  value  of  7.9  x  io  ergs/cm 
and  velocity  of  3.6  x  io5  cm/sec  are  shown  in  Figures  7 
through  12.  A  240-cm  long  by  60-cm  high  grid  having  cell 
sixes  3  cm  long  by  1.5  cm  high  was  used  in  this  computation. 


28 


■3T 


EXPLOSIVE  ENERGY- 7. »10>ERGS/SQ.Cn 
OETONRTION  VELOCITY- 3. 6*1  OP  Ot/SEC 
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Figure  11.  Velocity  Vector  Field 


11m  solution  ttcMda  t 1m  upper  grid  boundary  for  V  dlotssMSs 
greater  than  190  cm.  the  email  oscillations  on  tbs  pressure, 
energy  and  density  contours  (figures  •  through  10)  are  due  to 
the  contouring  echene  in  the  SHTLOTL  code  and  do  not  represent 
oscillations  in  ths  (Is  field.  The  disturbance  of  the  uni¬ 
fora  flow  field  is  apparent  in  the  velocity  vector  field  of 
figure  11.  By  subtracting  the  background  velocity  (unifora 
flow  velocity)  one  can  see  in  I  igure  12  the  Instantaneous  ve¬ 
locity  field  produced  by  a  line  source  aoving  along  the  plane 
through  still  gas.  This  vector  field  corresponds  to  a  change 
of  coordinates  back  to  a  fixed  sheet  of  explosives  with  a 
detonation  aoving  along  the  sheet. 

The  shock  front  locations  for  the  four  energy  values, 
all  at  3.t  •  10  ca/sec,  are  superimposed  in  rigure  13.  We 
observe  that  the  shock  forme  out  in  front  of  the  line  of  det¬ 
onation  ir  the  incoainj  uniform  flow  and  ia  normal  to  the 
piano  of  symmetry  of  the  problem.  The  shock  front  bends 
quite  dramatically  in  its  departure  from  the  plane  of  sym¬ 
metry  moving  backwards  past  the  line  of  detonation  giving  a 
shock  front  shape  not  unlike  that  formed  by  a  blunt  body  in 
hypersonic  flow  (33).  The  shock  then  tends  to  curve  less 
dramatically,  approaching  tl*e  Hach  angle  for  the  free  stream 
hypersonic  flow  at  larg  distances  downstream  from  the  point 
of  detonation.  The  Kach  angle,  v ,  is  defined  by  Reference  39 

sin*  *  ^  (22) 


Velocity*  3.6  >  10s  cmAtc 
MACH  Angle  (  )■  S.46* 


rtc*l  Solution  for  Tour  Cacryry 


where  M  is  the  Mach  number  of  the  frn  strata  flow.  ?ha 

shock  front  locations  for  thrss  detonation  velocities,  all 

7  2 

at  tha  snsrgy  lavsl  7.9  *  10  srgs/ca  ,  are  superiaposad  in 
Figure  14.  One  can  observe  that  a  slower  hypersonic  flow  ve¬ 
locity  (velocity  of  detonation)  results  in  a  slight  shift  of 
the  shock  upstream  and  a  fuller  shock  profile. 

EMPIRICM.  FIT  TO  NUMERICAL  SOLUTION 

Several  approaches  to  finding  an  empirical  equation  for 
shock  location  curves  were  tried.  An  attempt  at  noraalizing 
the  numerically  obtained  curves  to  find  a  single  curve  nor¬ 
malized  by  energy  and  velocity  was  not  successful.  Polynom¬ 
ials  and  exponentials  did  not  prove  satisfactory.  A  reason¬ 
ably  satisfactory  fit  was  obtained  using 

Y  -  A  ♦  BXn  (23) 

where  A,  B  and  n  are  functions  of  the  energy  and  velocity  of 
detonation.  Solution  of  this  relationship  for  the  numerically 
obtained  data  points  provides  the  following  functional  rela¬ 
tionships} 


•  •  10 (>  -  4  log10E) 

*  • 4  *  ♦  ’-Mn*) 


(24) 


where 
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o  o  o  o  o 

♦  IO  N  - 


(WD)  3DNV1SI0-X 


M 


E  -  detonation  energy  (ergs/ca2) 

V  ■  detonation  velocity  (ca/sec) 

and 

o  -  30.45V  -  3.175  *  10* 

0  -  0.368  -  3.28  *  iO~7V 

Y  -  1.8  ♦  V  *  10“5 

0  -  0.315  4V*  10“* 

C  -  1.36  -  9.0  *  10~7V 
4  -  5.12  «  10"7V 

A  coaparison  of  the  numerically  obtained  curves  with  this 
eapirical  fit  is  shown  in  Figure  15. 

Additional  plots  fro*  solution  of  the  idealised  (energy 
only)  probleei  for  other  values  of  energy  and  velocity  of  det 
onation  are  provided  in  Appendix  B. 


VWocity  •  3  6  x  10  cm /see 

NUMERICAL  SOLUTION 
EMPIRICAL  FIT 


(WD)  3ONV1SI0-X 

I 
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Flf*rr«  ».  (AmfrUcm  of  »Mri(sl  StUtloi  mi  bftrlul  Fit 


tamo*  in 

MASS  AMO  SMSaCY  AOOXTXOa 

The  multi  obuinad  in  the  previous  mcuor  srs  obvi¬ 
ously  11*1  ted  by  ths  idealising  assumptions  used.  A  mors 
rsslistic  solution  is  obtained  by  recognising  that  in  the 
detonation  of  in  explosive  Material,  mss  in  the  fora  of  det¬ 
onation  products  is  released  as  veil  ss  energy.  A  further 
uaprovsment  is  obtained  by  treating  the  genes  in  the  sur¬ 
rounding  Median  end  the  gaseous  detonation  products  ss  ideal 
gases  vh il«  recognising  the  rat  o  of  specific  heats  (y)  for 
each  gas  as  being  a  teMperature-dependent  parameter.  A  Method 
of  accounting  for  several  distinct  ness  species  is  required 
in  anticipation  of  the  post-detonation  combustion  problen  ad¬ 
dressed  in  the  next  section.  Obviously  an  analytical  solu¬ 
tion  aot  possible  and  a  nor©  sophisticated  numerical  sp- 
p rosrf  \  required. 

iMULTr-^TgXIAL  MYDAObYKAMIC  COOC 

In  developing  a  conputer  code  suitable  for  the  solution 
of  the  real  sheet-explosion  problem,  the  first  order  of  bus¬ 
iness  Is  to  determine  hov  many  different  mss  species  must 
bn  accounts-!  Mr.  A  review  of  the  detonation  products  fr on 
explosive  Materials  (14)  indicates  that  TKT,  one  of  the  Moat 
coMMon  explosive  materials,  is  also  one  of  the  Most  oxygen 
negative  explosives  (i.e.,  detonation  products  contain  a 
large  amount  of  conbustible  materials)  and  thus  should  pro¬ 
vide  e  substantial  post-detonation  combustion  effect.  The 
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fMauty  of  i«ch  spool*  of  detonation  product  produced  it  do- 
psmAeat  upoo  Um  UltUl  density  of  th#  explosive  aittntl . 

Ao  lsitltl  dootity  of  1.47  gr/cn}  mi  arbitrarily  aalactod 
raoultlof  la  the  roloaao  of  tha  nine  apaciat  of  detonation 
products  listed  in  Table  1. 

TABLE  1 

Detonation  Product •  from  TST 
(soles  of  each/kg  of  TMT) 

00  -  1.1  »2  -  *.9  CMj°M  -  4.29 

C02  -  9.S  C*4  -  0.1  C(S)  -  14.2 

M20  -  1.1  KMj  -  4.4  MCX  -  1.1 

By  including  the  oxygen  from  ?  nr  cur  rounding  air*  ten  uses 
species  are  involved  in  the  problen  (air  considered  as  con¬ 
taining  only  oxygen  and  nitrogen).  At  the  detonation  temper¬ 
ature  (approx mutely  4000  *K)  subatantiai  dissociation  occurs, 
but  a  short  distance  from  the  detonation  point  the  tempera¬ 
ture  Is  markedly  reduced  and  much  recombination  has  occurred. 
It  Is  therefor*  a  reasonable  approximation  to  assume  no  dis¬ 
sociation  throughout  the  entire  blast-vave  problem.  The 
quantitate  of  CH^  and  XH^  are  so  snail  that  they  nay  be  ig¬ 
nored  ea  separate  species  for  which  accountability  nuat  be 
maintained.  However,  the  mass  associated  with  the  CH^  and 
MM j  must  be  accounted  for.  A  way  of  accomplishing  this  is  to 
sssua i  that  thsse  two  species  dissociate  into  carbon,  hydro¬ 
gen,  and  nitrogen,  and  increase  the  quantities  of  each  of 
thsse  species  an  appropriate  amount  so  that  the  tctal  mast 
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wtiM  coMtint.  Thus*  ths  following  increase  in  tho  quen- 
titioi  of  carbon*  hydrogen ,  end  nitrogen  is  node  to  ec count 
for  the  Ignored  C*^  end  MNjt 

C  -  0.1  aolesA9  of  TNT 
Mj  -  0.9  moleeAg  of  TNT 
N2  -  0.2  SK>les/k9  of  TNT 

•y  using  e  sinller  approach,  e  further  reduction  in  the 
nuaber  of  ness  species  cen  be  obteined  by  considering  the 
equlllbriua  curves  (41)  for  HCN  end  Cl.^OH  (Figure  1C).  At 
taaperaturai  below  4000  *K  these  eeteriels  dissociate  into 
Nj.  N^.  CO  end  solid  carbon.  Realising  thet  the  teepereture 
will  be  such  less  then  4000  *r  ir  ell  but  one  or  two  cells* 
it  is  reasonable  to  essuee  thet  this  dissociation  has  occur¬ 
red  at  ell  locations  in  the  flow  field.  The  aaounts  of  llj, 
Nj.  CO*  end  C(s)  ere  increased  an  appropriate  enount  to  ac¬ 
count  for  the  dissociation  of  HCN  and  CM^OMt  thus  keeping  the 
total  ease  constant. 

MCNi  lt2  -  0.55  nolesAg  of  TXT 
-  0.S5  at  lesAg  of  TXT 
C  -  1.1  noles Ag  of  TXT 
CMjOHi  CO  -  4.20  soles Ag  Of  TXT 
«2  -  9.51  nolesAg  cf  ."XT 

The  total  nuaber  of  species  to  be  accounted  for  can  then  be 
reduced  to  the  seven  listed  in  Tible  II. 
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M  ♦  0  -»  NO 


CO  ♦  j  C  .  -  co2 
H2  *  I  °2  *  H2° 

CM  OH  CO  ♦  2H 
CjM2  ♦  2C  ♦  Hj 

co  ♦  3h2  -•  ai4  ♦  ii2o 

N°  •  J  M2  ♦  J  O, 

C  ♦  2H2  •  CH4 

CO  ♦  l!20  •  ♦  COj 

KWj  4  j  ♦  j  Hj 

*°>  -  *°j  ♦  :  °j 

C  ♦  MjO  •  H2  *  CO 

2CO  •  C02  ♦  C 

H,  ♦  2C  •  Ji,  •  2  IKS 

4  4 

*  H 

i  M,  *  M 


TABLE  XI 


Rtviiid  Material  Accountability  List 
(aolee/kg  of  TNT) 

00  -  6.0>  H.O  ->1.3  0,  (background 

*  1  flow  only) 

C02  -  9.5,  H2  -  4.65 

H2  -  9.93  C(s)  -  IS. 4 

Thus#  a  seven -material  hydrodynamic  cod*  could  ba  used#  with¬ 
in  limitations#  to  approximate  a  more  realistic  solution  of 
the  blast  wav*  formed  Ly  the  explosion  of  a  T\*T  sheet. 

A  multi-material  version  of  the  SHELL  cod*#  called 
MADXSH  5#  was  already  in  existence  at  the  start  of  this 
work  (35).  This  code  has  the  capability  of  determining  the 
inviscid#  c impressible  hydrodynamic  behavior  of  five  distinct 
mass  species  and  includes  effects  of  radiation  diffusion.  It 
is  limited  to  axisymme  ric  coordinates  as  va»  MiUX  OIL  but 
includes  temperatute  at  another  dependent  varsat  It  for  which 
accountability  is  maintained  m  •>ach  cell  (In  adJition  to 
pressure#  mass#  internal  energy#  and  two  tmtr.iu  nt*  of  veloc¬ 
ity  as  in  SKI'LL  OIL) . 

In  developing  a  computer  code  for  tb*  sheet  explosion 
problem#  SADISM  5  was  uted  as  the  basic  vthiela.  The  radia¬ 
tion  diffusion  port!  m  were  delated  and  the  codo  »>)ifled  to 
operate  in  either  axioyssaetric  or  cartesian  coordinates.  It 
was  expanded  to  accommodate  seven  materials,  and  a  mass  and 
energy  deposition  schc-m  was  included.  This  revised  code# 
titled  SIIELTC7,  is  tho  primary  tool  for  use  in  this  and  the 
following  section  (sec  Appendix  C  for  details  of  SHELTC7) . 
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WOtTI-WMtfclAL  POPATIOS  Of  STATE 

la  us  1*9  SIHTC7,  s  multi-tutorial  equation  of  ststs  is 
required  vfeidi  will  provide  tbs  prsssurs  and  temperature  of 
tbs  mixture  of  detonation  products  snd  air  whan  tbs  intsraal 
sssrfy  and  quantity  of  aach  typs  of  maea  ara  known.  Such  an 
aquation  of  stats  was  developed,  assuming  tha  mixture  to  con¬ 
sist  of  six  qasss  and  solid  carbon  vhara  tha  gates  obay  tha 
Idaal  gas  aquation 

f  •  ~  (26) 

whara 

P  •  pressure 

n  •  number  of  soles 

k  •  ideal  94s  constant 

T  •  temperature 

v  *  specific  volume 

and  whose  ratios  of  specific  heats  are  functions  of  tempera¬ 
ture. 

t  •  C/C,  *  y(T)  (27) 

p  v 

Cp  and  Cy  data  for  tha  six  gases  listed  in  ~  »bic  II  are  pro¬ 
vided  in  tha  JAhAP  Thansochemical  Tables  (38)  for  temperature 
ranges  of  interest.  Cy  data  for  uolid  carbon  arc  available 
in  Reference  17.  A  polynomial  fitting  routine  vac  used  to 
ootain  ths  expressions  for  Cr  and  C  as  functions  of  temper- 
atura  listed  in  Table  III.  These  and  Cy  expressions  were 
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1600  5  =  4.2  +  4.09  x  10  T  9rn" 


formed  into  computational  subroutines  to  the  main  equation 
of  state  subroutine  so  that  for  any  temperature,  gamma  can 
be  computed  for  each  mass  specie. 


Y  (T) 


cp(t) 

c^Try 


(28) 


The  governing  equations  used  in  the  equation  of  state 
subroutine  are 


(i  =  1 , 2  ,  •  •  • ,  6 ) 


P 


n 


RT 

V. 

i 


(i  =  1»2, •••,6) 


(i  =  1 ,2  ,  •  •  •  ,6) 


„  RT 

Pi  ni  V 


p  -  £pi 

i=l 


I  =  T  m.  I . 

l  l 

i=l 


n»  =  Smi 

i=l 


(i  =  1,2, •• • ,6) 


(i  =  1 , 2  ,  •  •  •  , 6 ) 


(i  =  1 , 2  ,  •  •  •  ,  6  ) 


(i  =  1,2, •••6,) 


n 


i 


(i  =  1,2, • •• ,6) 


(29) 

(30) 

(31) 

(32) 

(33) 

(34) 

(35) 

(36) 
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where 

P  =  cell  pressure 

P^  =  partial  pressure  of  ith  gas  specie 
=  specific  volume  of  ith  gas  specie 
V  =  cell  volume 

=  partial  volume  of  ith  gas  specie 
I  =  total  internal  energy  of  cell 
1^  =  specific  internal  energy  of  ith  gas  specie 
M  =  total  cell  mass 
nu  =  mass  of  ith  specie 

=  molecular  weight  of  ith  gas  species 
=  specific  heat  ratio  of  ith  gas  specie 

Combining  equations  28,  29,  and  30  to  eliminate  P 
tain 

niRT 

Ii  “  (Yi  -  l)mi 

Using  this  in  equation  33  along  with  equation  35  we 
6  6  n .  m .  RT 

1  =  E1!1*!  ”  E  W.  -  llrr.: 

i=l  i=l  1  i 

6  m . 

1  =  RTE  1) 

i=l  11 

Finally 

T  -  - i- - 

6  m . 

R£  Vn  - 11 


we  ob- 

(37) 

obtain 

(38) 

(39) 

(40) 
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The  temperature  being  found,  the  partial  pressure  for  each 
specie  is  found  by 

n .  RT 

Pi  =  ~ —  (i  =  l,2,-*-,6)  (41) 

then, 

6 

P  =  £pi  (i  =  1  /  2 ,  •  •  •  ,  6 )  (42) 

i=l 

provides  the  cell  pressure. 

The  computation  of  the  pressure  and  temperature  using 
the  multi-material  equation  of  state  subroutine  (called 
STATE  7)  is  accomplished  on  a  cell-by-cell  basis  throughout 
the  entire  grid,  once  during  each  time  step.  In  each  cell 
the  volume  of  solid  carbon  is  computed  and,  if  significant, 
subtracted  from  the  volume  of  the  cell.  Then  the  specific 
heat  ratio  (y)  is  computed  for  the  six  gases  at  the  present 
cell  temperature  using  the  formulations  in  Table  III.  The 
denominator  for  equation  3  9  is  computed  and  a  new  temperature 
for  the  gas  mixture  is  determined.  Then  the  gas  mixture  and 
the  solid  carbon  are  brought  into  temperature  equilibrium  to 
obtain  a  new  cell  temperature.  With  the  new  cell  temperature 
new  gammas  are  computed  and  the  above  process  repeated  until 
the  temperature  converges.  When  temperature  convergence  has 
been  obtained,  the  partial  pressure  for  each  gas  specie  is 
computed  using  equation  40.  Finally  the  partial  pressures 
are  summed  to  obtain  the  new  cell  pressure. 
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THE  COMPUTATIONAL  PROBLEM 


From  previous  experience  with  the  idealized  problem 

(point  source  in  hypersonic  flow) ,  an  energy  value  of  7.9  x 
8  Z 

10  ergs/cm  was  chosen  as  one  not  requiring  excessive  com¬ 
puter  running  time  and  that  still  could  provide  a  substantial 
shock  wave.  From  this  energy  value  a  thickness  for  the  ex¬ 
plosive  sheet  was  determined.  Using  the  following  values 

3 

density  =  1.47  gr/cm 

energy  =  1.13  keals/gr 

conversion  =  4.186  x  10^°  ergs/kcal 

-2 

a  thickness  of  1.136  x  10  centimeters  is  obtained.  Note 

that  this  is  the  thickness  of  material  deposited  above  the 

axis  of  symmetry  and  corresponds  to  an  actual  sheet  thickness 
_2 

of  2.272  x  10  centimeters. 

With  the  thickness  known  the  amount  of  explosive  mate¬ 
rial  (W)  deposited  into  the  computational  grid  per  unit 
length  of  detonation  travel  can  be  determined 

W  =  (density)  •  (thickness)  •  (length)  •  (width) 

=  (1.47)  (1.136  x  10-2)  (1)  (1) 

W  =  1.67  x  10  2  gr/cm  (43) 

Returning  to  the  revised  list  of  detonation  products  (Table 
II)  and  using  the  molecular  weights  assigned  in  Table  TV,  the 
amount  of  each  specie  provided  by  the  detonation  of  a  unit 
length  of  explosive  can  be  determined. 
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TABLE  IV 


Molecular  Weights  of  Mass  Species 
CO  -  28  H2  -  2  H20  -  18 

C02  -  44  02  -  32  N2  -  28 

C  -  12 


Amount  of  Each 
Specie  Deposited 
(per  unit  length) 


(Total  Mass  v 
Deposited  i 
Per  Unit  j 
Length  / 


(Moles  of  \ 
Each  Specie! 

Per  Unit  I 
Total  Mass  / 


( 


Mole 
Weight 
of  Specie 


The  amount  of  each  specie  that  is  deposited  by  a  detonation 
of  a  unit  length  (cm)  of  explosive  is  listed  in  Table  V. 


TABLE  V 


Mass  of  Each  Specie  Deposited  (gr/cm) 


2.85 

X 

10  3 

H2 

-  3.32 

X 

ID'4 

6.98 

X 

10“3 

h2o 

-  3.91 

X 

10~4 

-3 

-3 

3.09 

X 

10  J 

N2 

-  3.11 

X 

10  J 

The  computational  grid  was  initially  loaded  with  a  uni¬ 
form  mixture  of  N2  (75.5%)  and  02  (24.5%)  representing  air 

-3  3 

with  an  ambient  density  of  1.2  x  10  gr/cm  ,  temperature  of 
292  °K  and  pressure  of  14.7  psi.  A  modified  C.LAMTC  code  was 
used  to  establish  and  load  this  grid  and  to  generate  the  zero 
cycle  on  the  problem  tape.  The  specific  internal  energy  for 
each  of  the  detonation  products  and  the  background  flow  gases 
were  computed  for  ambient  temperature  using 


(44) 
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where 

if>  “  5/2  for  diatonic  gases 

<J>  =  3  for  triatomic  gases 
and  are  listed  in  Table  VI. 

TABLE  VI 

Internal  Energy  of  Detonation  Products 
(ambient  temperature)  (ergs/gr) 

N2  -  2.165  x  109  CO  -  2.095  x  109  H2  -  29.3  x  109 

02  -  1.895  x  109  C02  -  1.656  x  109  C(s)  -  0 

H20  -  4.05  x  109  Air  -  2.0  x  109 

The  explosive  detonation  energy  deposited  with  each  dep¬ 
osition  of  mass  was  4.72  x  10^°  ergs  per  gram. 

A  background  flow  regeneration  scheme  (used  to  simulate 
incoming  flow  conditions)  was  devised  and  incorporated  into 
the  subroutine  CDT  of  SHELTC7 .  The  initial  background  flow 
conditions  are  reestablished  in  the  first  two  rows  of  the 
grid  (right  edge  -  Figure  4)  with  appropriate  adjustments  to 
total  problem  mass,  total  problem  energy  and  the  mass  of  each 
species . 

A  mass  and  energy  deposition  scheme  was  devised  and  in¬ 
corporated  into  subroutine  CDT  of  the  SHELTC7  code.  A  let¬ 
ter  designator  was  assigned  to  each  mass  specie  as  listed  in 
Table  VII  and  used  to  account  for  that  specie  throughout  the 
computation . 
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TABLE  VII 


Letter  Designators  for  Mass  Species 
A  -  N2  D  -  C02  G  -  C ( s) 

B  -  CL  E  -  H00 

c.  4 

C  -  CO  F  -  h2 

The  length  of  material  detonated  (which  establishes  the  amount 
of  mass  deposited)  is  determined  by  the  time  step  and  the  det¬ 
onation  velocity.  A  momentum  balance  is  performed  between 
the  material  in  the  detonation  cell  and  the  material  depos¬ 
ited,  and  new  cell  velocities  are  determined.  Conservation 
of  energy  then  determines  how  much  kinetic  energy  is  converted 
to  internal  energy.  The  mass  of  each  specie  and  the  total 
mass  in  the  detonation  cell  are  adjusted  by  the  amount  of 
mass  deposited,  and  the  internal  energy  of  the  cell  is  in¬ 
creased  by  the  amount  of  explosive  energy  deposited.  Fin¬ 
ally,  the  total  mass  and  the  total  energy  in  the  grid  are  in¬ 
creased  by  the  amount  of  each  deposited  during  the  detonation 
sequence . 

COMPUTED  RESULTS 

Two  solutions  were  obtained  by  using  this  more  sophis- 

8 

ticated  computational  scheme.  Energy  values  of  7.9  x  10 
9  2 

and  7.9  x  10  ergs/cm  ,  both  at  a  detonation  velocity  of 

5 

3.6  x  10  cm/sec,  were  used  corresponding  to  previously  ob¬ 
tained  solutions  for  the  idealized  (energy  addition  only) 

problem.  The  corresponding  half  thicknesses  for  a  TNT  sheet 

-2  -1 

are  1.136  x  10  and  1.136  x  10  centimeters,  respectively. 
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Those  problems  were  run  on  the  CDC-GOOO  computer  and  required 
several  hours  of  computation  time  for  each. 

The  plotting  code  (SHPLOTL)  was  modified  to  accommodate 
the  multi-material  results  obtained  from  the  SHELTC’  compu¬ 
tations  and  was  then  titled  SHPL0T7 .  Plots  of  the  tempera¬ 
ture  distribution  (isotherms)  are  provided  by  this  modified 
plotting  code  in  addition  to  the  plots  of  other  variables 
(pressure,  energy,  velocity,  etc.)  mentioned  previously  in 
Section  II. 

The  location  in  the  x-y  plane  of  the  shock  front,  as  de¬ 
termined  by  the  SHELTC7  computation  for  the  energy  value  of 
8  2 

7.9  x  10  ergs/cm  is  shown  in  figure  17.  The  shock  again 
forms  out  in  front  of  the  line  of  detonation  and  then  curves 
downstream,  approaching  the  Mach  angle  at  some  distance  down¬ 
stream  from  the  line  of  detonation.  Contours  of  constant 
pressure  (isobars)  arc  shown  in  Figure  18.  A  high  pressure 
zone  occurs  along  the  shock  front  with  the  highest  pressures 
immediately  adjacent  to  the  line  of  detonation.  In  the  re¬ 
gion  downstream  from  the  line  of  detonation  and  along  the 
plane  of  symmetry  a  low-pressure  zone  exists  which  causes  a 
partial  reversal  of  the  initial  outward  flow  of  the  mass. 

The  .inward-moving  mass  then  converges  on  the  plane  of  sym¬ 
metry  causing  a  new  high-pressure  region.  Hence,  high-  and 
low-pressure  regions  alternate  downstream  along  the  plane  of 
symmetry  until  the  oscillations  damp  out  and  become  insignif¬ 
icant.  This  same  effect  was  observed  in  solutions  of  the 
idealized  problem. 
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rfftur*  17.  ShoL  Ffmt  U<*ilc}  |«  (W  V* 


Figure  Constant  Pressure  Cm  tours  (Isobars) 


Contours  of  constant  energy  are  shown  in  Figure  19  and 
constant  mass  density  in  Figure  20.  The  concentration  of  a 
large  percentage  of  the  total  mass  involved  in  the  blast  wave 
in  a  narrow  region  close  to  the  shock  front  can  be  seen. 
Figure  21  shows  contours  of  constant  temperature  (isotherms) 
behind  the  blast  wave.  One  may  observe  that  the  highest 
temperatures  arc  located  near  the  line  of  detonation  and  drop 
to  below  3000  °K  a  short  distance  from  that  point.  Hence, 
the  assumption  made  earlier  concerning  the  temperature  dis¬ 
tribution  and  the  shift  of  chemical  equilibrium  is  shown  to 
be  valid  providing  the  time  required  for  attaining  equilib¬ 
rium  is  short  compared  to  the  time  it  takes  :he  mass  to  move 
from  the  line  of  detonation  out  to  the  cooler  cells. 

A  comparison  was  made  of  the  shock  front  locations  de¬ 
termined  from  the  idealized  solution  (energy  addition  only  - 
Section  II)  and  from  the  solution  produced  here  (mass  and  en¬ 
ergy  addition).  The  comparison  for  the  two  energy  levels, 

8  9  2 

7.9  x  10  and  7.9  x  10  ergs/cm  ,  is  shown  in  Figure  22.  The 
shock  front  from  the  mass  and  energy  addj  tion  solution  forms 
slightly  farther  out  in  front  of  the  line  of  detonation  than 
the  shock  front  from  the  idealized  solution  but  it  curves 
back  more  sharply.  Thus,  the  shock  front  from  the  mass  and 
energy  addition  solution  crosses  under  the  shock  front  from 
the  idealized  solution  and  continues  beneath  the  idealized 
solution  at  all  locations  downstream  from  the  line  of  deto¬ 
nation.  In  other  words,  the  x-coordinate  of  the  shock  front 
from  the  mass  and  energy  addition  solution  (Xme)  is  smaller 


than  the  x-coordinate  of  the  shock  front  from  the  idealized 
solution  (X^)  by  approximately  the  same  amount  for  all  val¬ 
ues  of  y  beyond  the  line  of  detonation. 

Xi  -  *me  ’  con3tant  £or  I1  »  ^detonation  (45> 

This  compressed  outline  of  the  shock  front  from  the  mass  and 
energy  addition  solution  is  caused  by  the  detonation  products 
having  only  y-moiwantum  when  they  enter  the  flow  field.  In 
the  transformed  coordinate  system  used  in  solving  these  prob¬ 
lems,  the  mass  of  the  explosive  material  is  moving  in  the 
same  direction  and  at  the  same  rate  as  the  background  gas. 
When  this  mass  is  injected  into  the  background  flow  along  the 
line  of  detonation  (injected  with  no  component  of  velocity)  , 
the  same  amount  of  detonation  energy  cannot  accelerate  and 
compress  this  increased  mass  as  far  in  the  x-direction  as  in 
the  idealized  (energy  addition  only)  solution.  Hence  the 
shock  front  for  the  mass  and  energy  addition  solution  will 
not  have  moved  as  far  in  the  x-direction  for  any  y-distance 
as  will  the  shock  front  from  the  idealized  solution. 

No  attempt  was  made  to  obtain  an  empirical  fit  for  the 
mass  and  energy  addition  solution.  Additional  plots  from 
mass  and  energy  addition  solution  for  other  energy  values  and 
velocities  of  detonation  are  provided  in  Appendix  D. 

( 
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Figure  21.  Constant  Temperature  Contours  (Isotherms) 


t 


I 

SECTION  IV 

POST-DETONAflON  COMBUSTION 

/ 

Most  explosive  materials  are  highly  oxygen  negative. 

That  is,  in  the  basic  detonation  reaction  (usually  a  decom¬ 
position  of  some  complex  molecule)  all  of  the  oxygen  in  the 
explosive  material  is  consumed  and  substantial  amounts  of  hot, 
combustible  detonation  products  are  produced.  As  these  det¬ 
onation  products  flow  outward  from  the  line  of  detonation,  a 
material  interface  is  formed  between  the  detonation  products 
and  the  surrounding  medium.  At  first  this  interface  is  dis¬ 
tinct  with  good  material  separation  across  the  interface. 

The  interface  is  not  stable,  however,  and  as  outward  flow 
continues,  turbulent  mixing  and  mass  diffusion  occur  and  an 
expanding  zone  of  mixed  materials  (detonation  products  and 
surrounding  air)  is  formed.  Thus,  the  hot  detonation  prod¬ 
ucts  are  provided  with  a  source  of  oxygen,  and  combustion  oc¬ 
curs  to  release  an  additional  quantity  of  energy.  This  pro¬ 
cess  is  known  as  post-detonation  combustion  (PDC)  or  "after 
burning"  and  is  a  potential  source  of  error  for  calculations 
where  it  is  not  included.  Hence,  the  flow  field  behind  the 
blast  wave  from  the  detonation  of  an  oxygen  negative  explo¬ 
sive  consists  of  (1)  a  region  adjacent  and  downstream  to  the 
point  of  detonation  filled  only  with  products  of  detonation 
where  no  PDC  occurs,  (2)  a  mixed  zone  of  detonation  products 
and  air  where  PDC  occurs,  and  '3)  an  outlying  zone  of  shocked 
air  with  no  detonation  products  to  be  burned.  This 
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distribution  ol  materials  through  the  different  zones  is  de¬ 
picted  in  Figure  23. 

ESTIMATE  OF  PDC  ENERGY  RELEASE 

An  estimate  of  the  total  amount  of  energy  whicn  is  avail¬ 
able  for  release  by  PDC  can  be  obtained  by  burning  to  comple¬ 
tion  all  combustible  detonation  products  in  an  abundance  of 
oxygen.  Using  the  detonation  products  from  TNT  listed  in 
Table  II,  the  following  amounts  of  combustible  materials  are 
available: 

C  -  15.4  moles/kg  of  TNT 
CO  -  G.09  moles/kg  of  TMT 
H2  -  9.93  moles/kg  of  TNT 
The  combustion  reactions  are 


1. 


2. 


3. 


C  +  1/20 ^ 
H2  +  l/202 
CO  +  1/20 2 


AH. 


CO 


AH 

>  H20 


AH. 


CO. 


(46) 

(47) 

(48) 


The  heats  of  combustion  for  these  reactions  (36)  are 
AH^  «  -26,620  cals/molc  of  C 

AH2  ■  -68,320  cals/molo  of 

AHj  ■  -67,410  calo/molc  of  CO 
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BACKGROUND  FLOW  (AIR 


Figure  2  3.  Material  Zones  behind  the  Blast  Wave 


The  calculation  of  energy  release,  per  kg  of  explosive  mate¬ 
rial,  follows: 


C  ■»  CO 

(15 .4)  (26 ,620)  =  410,000  cals/kg  (49) 

H2  2  H2° 

(9.93)  (68,320)  =  678,000  cals/kg  (50) 

CO  ♦  co2 

(6.09  +  15.4)  (67,410)  =  1,450,000  cals/kg  (51) 

a 

l  ■ 

The  explosive  energy  released  by  a  kg  of  TNT  (p  =  l.1^)  is 
(Reference  34) 


°D  - 


(1000)iHir(1000)kf 


'»  ! 


L 

H- 


f  1 1  A  cal  "H 

1.13  x  1<T 

kg 


•i 


The  ratio  of  PDC  energy  tb  detonation  energy  is 


(52) 


ration 


2.538  x  106 
1.13  x  106 


2.245 


(53) 


i  Thus,  it  would  appear  that  more  than  twice  as  much  ei)- 
/ 

ergy  can  be  produced  by  the  PDC  than  is  produced  by  the  basic 

•  I 

detonation  of  the  TNT  and  that  the  contribution  to  the  blast 
wave  is  substantial.  Experimental  evidence,  however,  indi- 

i 

cated  -this  is  not  true,  because  the  detonation  products  are 

t 

not  all  burnedito  completion  ancF  the  burning  which  occurs 
does  so  over  a  long  period1  of  tifrie.  In  fact,  photographic 
evidence  and  post-detonation  examination  of  large  high- 


explosive  experiments  indicate  «  substantial  amount  of  un¬ 
burned  carbon  is  deposited  around  the  vicinity  of  the  detona¬ 
tion.  The  contribution  of  PDC  to  the  early-time  (under  10 
milliseconds)  formation  of  blast  waves  is  not  known  and  thus 
has  been  ignored  in  previous  blast  wave  calculations.  Some 
experlamntal  evidence  exists  (43)  which  suggests  that  this 
may  be  a  source  of  error*  particularly  at  late  times  (several 
hundred  milliseconds)  after  the  detonation  of  a  large  explo¬ 
sive  charge. 

Zt  was  intended  at  the  start  of  this  study  to  develop  an 
understanding  of  the  post -detonation  combustion  process  and 
to  incorporate  a  combustion  scheme  into  an  existing  hydrody¬ 
namic  code  so  that  some  quantitative  information  on  the  role 
of  PDC  In  the  formation  of  a  blast  wave  could  be  obtained 
without  a  several-year  development  of  a  completely  new  com¬ 
puter  code.  Durinq  the  course  of  this  work  it  has  become  ap¬ 
parent  that  this  goal  is  difficult  to  achieve. 

Post -detonation  combustion  is  a  complicate  process  in¬ 
volving  auas  transport*  mixing  of  different  mass  species,  and 
chemical  reaction  kinetics.  The  quantities  of  combustible 
materials  and  oxygen  at  any  point  in  the  flow  field  at  any 
time  depends  both  upon  the  overall  hydrodynamic  flow  and  upon 
the  amount  of  mixing  and  diffusion  which  has  occurred  across 
ths  alr-detonatlon  product  interface.  There  are  several  com¬ 
psting  reactions  occurring  simultaneously.  The  reaction  rate 
for  s  particular  reaction  depends  uoon  the  concentration  of 
the  reactants  and  upon  a  reaction  rate  coefficient  which  is* 

M 


In  turn*  dependant  upon  temperature.  An  exact  determination 
of  the  POC  reaction  require*  the  simultaneous  solution  of  a 
series  of  differential  rate  equations  of  the  form 

-  (vj  -  vj| k  *  (i  -  !*•••, n)  (54) 

1*1 

where 

Xj  •  molar  concentration  of  ith  specie  (moles/cm3) 
vj  •  stoichiometric  coefficient  of  itl‘  specie  in  prod¬ 
ucts 

vj  »  stoichiometric  coefficient  of  Ith  specie  in  re¬ 
actants 

k  -  reaction  rate  coefficient  for  the  specified  reac¬ 
tion 

n  •  number  of  mass  species 

for  each  incremental  volume  (grid  cell)  in  the  flow  field. 
Solving  these  equations  for  the  thr^e  simplified  combustion 
reactions  used  in  determining  the  amount  of  PDC  energy  avail¬ 
able  (Equations  46,  47,  and  48)  will  not  provide  correct  re¬ 
sults  becauso  the  actual  combustioi  process  involves  many 
other  molecular  and  atomic  species  and  several  chemical  re¬ 
actions.  Accurate  results  arc  obtained  only  if  all  of  the 
rosetions  aro  included  and  the  correct  reaction  rate  con¬ 
stants  are  known.  These  equations  have  previously  been 
solved  for  certain  mixtures  and  computer  programs  for  solv¬ 
ing  such  reaction-rate  problems  have  been  developed  (37). 
However*  these  programs  depend  upon  iterative  integration 


d(*A) 

"It 
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schemes  and  require  several  seconds  of  computer  running  time 
to  determine  the  progress  of  a  reaction  over  some  small  per¬ 
iod  of  time.  To  incorporate  such  an  exact  reaction  rate  sub¬ 
routine  into  a  hydrodynamic  code  (such  as  SHELTC7)  would  re¬ 
quire  the  execution  of  that  subroutine  for  every  cell  once 
during  each  cycle.  Most  blast-wave  problems  require  several 
thousand  grid  cells  and  run  several  hundred  cycles  to  obtain 
a  solution.  Hence,  the  computer  time  required  for  solving  a 
hydrodynamic  combustion  problem  would  be  several  hundred 
hours  on  the  fastest  computers  currently  available.  In  addi¬ 
tion,  it  would  be  necessary  to  maintain  accountability  of  at 
least  twelve  distinct  mass  species  in  each  cell  of  the  com¬ 
putational  grid  (only  seven  species  are  stored  in  SHELTC7) 
which  would  greatly  increase  the  amount  of  computer  memory 
required. 

A  further  difficulty  was  encountered  in  attempting  to 
determine  the  mixing  and  diffusion  which  occur  in  the  flow 
behind  a  blast  wave.  When  study  of  the  available  hydrodynamic 
codes  suitable  for  blast-wave  calculations  was  started,  it 
appeared  that  mixing  and  diffusion  had  been  considered  in 
their  development  and  computation  of  the  mixing  in  a  multi¬ 
material  flow  field  would  not  oresent  a  problem.  During  the 
course  of  the  study  it  was  discovered  that  such  was  not  the 
case— all  the  codes  suitable  for  two-dimensional  blast-wave 
calculations  had  been  originally  developed  for  i  single  ma¬ 
terial  and  later  adapted  for  multi-material  operation.  In 
the  adaptation  no  means  had  been  specifically  provided  for 
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computing  the  mixing  and  diffusion  of  one  mass  specie  through 
another.  Thus,  it  became  apparent  that  no  mathematically 
rigorous  method  for  computing  the  mixing  and  diffusion  of 
mass  species  which  accompany  the  hydrodynamic  flow  behind  a 
blast  wave  was  available. 

There  was  little  hope,  then,  of  performing  an  exact  cal¬ 
culation  of  the  PDC.  The  development  of  a  new  computer  code 
to  accomplish  this  would  take  several  years  and  was  beyond 
the  scope  of  this  study.  It  was  discovered,  however,  during 
the  study  of  SHELL  hydrodynamic  codes  that  mixing  of  the  dif¬ 
ferent  mass  species  does  occur  in  the  multi-material  versions 
of  SHELL,  even  though  no  specific  mechanism  had  been  incorpo¬ 
rated  in  the  code  to  cause  it  to  happen.  This  mixing,  some¬ 
times  called  "artificial  diffusion,"  is  inherent  in  all  multi- 
material  Eulerian  codes  and  is  an  accidental  rather  than  a 
planned  occurrence. 

With  this  discovery  in  mind  it  was  decided  to  pursue  the 
development  of  a  scheme  to  approximate  the  contribution  from 
PDC  in  a  blast-wave  calculation,  realizing  that  experimental 
correlation  would  be  required  before  good  confidence  in  the 
approximation  scheme  could  be  obtained. 

MIXING  OF  MASS  SPECIES  IN  SHELTC7 

Previous  studies  using  the  SHELL  codes  (16,  17)  have  re¬ 
ferred  to  mass  transport  across  a  material  interface,  called 
an  "artificial  diffusion,"  as  a  disadvantage  inherent  in  all 
Eulerian  codes.  However,  for  the  approximation  that  is  being 
developed  it  may  be  an  advantage  if  satisfactory  comparison 


with  experiment  can  be  obtained.  The  basic  equations  from 
which  SHELTC7  was  developed  (see  Appendix  A)  are  the  equa¬ 
tions  for  2-D  inviscid  compressible  flow  and  do  not  contain 
any  terms  which  would  provide  mixing  or  diffusion.  Hence, 
the  code  should  produce  only  laminar  flow.  However,  in  the 
computational  algorithm  at  the  conclusion  of  the  mass  trans¬ 
port  phase  (subroutine  Phase  II  in  the  code)  ,  all  the  mass 
species  in  any  cell  are  considered  to  be  uniformly  distrib¬ 
uted  throughout  the  cell.  This  instantaneous  dispersion  or 
"diffusion"  causes  any  new  mass  specie  which  has  been  intro¬ 
duced  into  the  cell  to  be  instantaneously  transported  across 
and  throughout  the  cell.  By  this  means,  mass  species  are 
propagated  from  cell  to  cell  and  mixed  with  other  species 
somewhat  like  the  mixing  and  diffusion  in  real  gases.  But 
since  this  "effective  mixing"  does  not  result  from  the  basic 
equations,  it  must  be  considered  entirely  artificial  being 
caused  directly  by  the  computational  scheme.  Nevertheless, 
it  does  accomplish  mixing  and  diffusion  (superimposed  upon 
the  basic  hydrodynamic  flow)  ,  and  may  be  useful  much  as  the 
artificial  or  "effective  viscosity"  which  is  inherent  in 
SHELL  (see  Appendix  A  for  SHELL  effective  viscosity) . 

The  mixing  and  diffusion  in  SHELTC7  occur  only  when 
there  is  a  flow  of  mass  and  only  in  the  direction  of  the  flow 
velocity  (i.e.,  when  there  is  no  component  of  velocity  in  a 
given  direction,  there  is  no  mixing  in  that  direction) .  The 
amount  of  mixing  which  occurs  in  a  given  time  (i.e.,  the  mix¬ 
ing  rate)  is  governed  by  the  magnitude  of  the  flow  velocity, 
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the  concentration  gradient  of  the  various  mass  species,  and 
the  cell  size  of  the  computational  grid.  Expressed  in  an** 
other  way,  the  time  rate  of  change  of  the  concentration  of  a 
mass  specie  in  any  direction  is  a  function  of  the  magnitude 
of  the  component  of  velocity  in  that  direction  and  of  the 
concentration  gradient  of  that  specie  in  that  direction. 


where 

(C^)  =  mass  concentration  of  itJl  species  (gm/vol) 

V  =  component  of  velocity  in  specified  direction 
(cm/sec) 

R  =  distance  in  specified  direction  (cm) 
t  *  time  (sec) 
n  =  number  of  mass  species 

The  functional  relationship  has  not  been  determined  but  is 
undoubtedly  influenced  by  cell  size.  A  literature  search  was 
conducted  for  a  suitable  experiment  which  could  be  calculated 
using  SHELTC7 ,  to  permit  comparison  of  the  mixing  in  that 
code  with  experimental  data.  Recent  work  by  McArtor  (44)  in¬ 
volving  2-D  transverse  injection  of  mass  into  supersonic  flow 
offered  hope  but  a  preliminary  single-material  calculation 
using  SHELLTC  revealed  that  boundary  layer  effects  dominate 
that  experiment  making  it  unsuitable  for  correlation  with 
SHELTC7.  Other  experimental  work  (45,  46)  was  considered  but 
none  proved  suitable  for  this  purpose. 
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Realising  the  need  for  a  more  detailed  investigation  and 
definition  of  the  mixing  in  SHEL7C7,  if  one  accepts  this  mix¬ 
ing  as  a  suitable  approximation  for  the  turbulent  mixing  and 
diffusion  which  occur  during  the  propagation  of  a  blast  wave, 
then  further  work  in  the  study  of  PDC  can  be  accomplished. 
(Substantial  discussion  of  the  suitability  of  this  approxima¬ 
tion  with  others  who  are  using  and  modifying  multi-material 
versions  of  SHELL  has,  in  general,  resulted  in  agreement  with 
the  approximation.)  It  was  decided  that  continuing  the  post¬ 
detonation  combustion  study  using  this  approximation  of  ma¬ 
terial  mixing  would  be  meaningful ,  particularly  if  correla¬ 
tion  witi'.  specifically  designed  experiments  could  later  be 
obtained. 

After  some  preliminary  computer  runs  were  attempted,  it 
was  discovered  that  an  obvious  excess  of  mixing  was  occurring 
near  the  line  of  detonation  as  a  result  of  the  mass  deposi¬ 
tion  scheme  incorporated  into  SHELTC7  (deposition  of  the  det¬ 
onation  products  into  the  flow  field — described  in  Section 
III) .  In  that  scheme  the  amount  of  each  of  the  mass  species 
to  be  deposited  is  computed  and  then  added  to  the  mass  of  the 
ccH  immediately  adjacent  to  the  line  of  ^  donation.  In  so 
doing,  each  mass  specie  is  instantaneously  dispersed  through¬ 
out  the  volume  of  that  cell  and  thus  is  uniformly  mixed  with 
all  the  other  mass  species  already  in  the  cell.  This  results 
in  an  unrealistically  largp  amount  of  mixing  and  precludes  a 
sharp  interface  between  the  background  flow  of  air  and  the 
incoming  flow  of  detonation  products.  It  can  be  argued  that 


the  aost  distinct  material  interface  in  the  ettire  flow  field 
from  an  actual  detonation  will  be  found  close  to  the  line  of 
detonation  before  significant  mixing  or  diffusion  has  had 
time  to  occur.  Thus,  the  mixing  which  occurs  as  a  result  of 
the  mass-deposition  scheme  is  not  realistic  and  does  not  very 
well  represent  that  which  happens  near  an  actual  line  deto¬ 
nation. 

To  correct  this  deficiency,  a  special  subroutine  called 
INTFACC  was  incorporated  into  SHELTC7  which  creates  a  more 
distinct  material  interface  near  the  line  of  detonation. 
1NTFACE  is  executed  once  each  cycle  after  the  mass  transport 
phase  (subroutine  Phase  II)  is  completed.  The  subroutine  be¬ 
gins  in  a  cell  adjacent  to  the  plane  of  symmetry  and  a  few 
cells  upstream  from  the  line  of  detonation  (i  »  1,  j  ■  16 
was  chosen) .  The  next  cell  adjacent  to  the  beginning  cell 
in  the  direction  of  increasing  i  index  (i  «  2,  j  ■  16)  is 
examined  to  see  if  it  contains  any  detonation  products.  If 
it  does,  equal  quantities  of  air  (nitrogen  and  oxygen)  and 
detonation  products  are  exchanged  between  the  two  cells  until 
either  there  is  no  air  remaining  in  the  first  cell  or  no  det¬ 
onation  products  remaining  in  the  second  cell.  The  second 
cell  is  then  designated  as  the  new  first  cell  and  the  next 
adjacent  cell  in  the  increasing  i  direction  (i  ■  3)  is  desig¬ 
nated  the  new  second  cell.  The  mass  trading  sequence  is  then 
repeated.  This  process  is  continued  along  the  row  (increas¬ 
ing  i  index)  until  cells  with  no  detonation  products  are  en¬ 
countered.  The  j  index  is  then  increased  by  one  and  the 
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Above  sequence  is  reposted  storting  with  the  i  index  et  the 
value  of  the  last  cell  encountered  in  the  previous  sequence. 
The  progression  in  the  direction  of  increasing  j  index  is 
continued  for  an  arbitrary  number  of  rows  (14  was  used),  ly 
this  means  the  material  interface  between  air  and  detonation 
products  is  reduced  to  essentially  one  or  two  cell  widths  for 
the  first  several  rows  near  the  line  of  detonation  and  the 
excess  mixing  associated  with  the  mass  deposition  scheme  is 
greatly  reduced.  Here  again,  experimental  verification  is 
required  before  real  confidence  in  this  interface  preserva¬ 
tion  scheme  can  be  attained. 

The  mass  and  energy  addition  solution  for  the  energy 
8  2 

value  of  7.9  x  10  ergs/cm  and  detonation  velocity  of  3.6  x 
105  cm/sec  (described  in  Section  III)  includes  the  distribu¬ 
tion  of  the  seven  material  species  throughout  the  computa¬ 
tional  grid  which  results  from  the  mixing  which  is  inherent 
in  SHELTC7  as  influenced  by  subroutine  I NT FACE.  The  multi¬ 
material  plotting  code  SHPL0T7  was  constructed  to  depict  this 
distribution  in  two  ways.  First,  contours  linking  locations 
where  equal  quantities  of  a  selected  specie  exist  are  drawn 
for  each  mass  specie  as  shown  in  Figures  24  through  30.  The 
units  of  the  contour  scale  are  grams  and  refer  to  the  number 
of  grams  of  that  specie  in  the  cell  at  that  location  in  the 
grid.  The  second  method  of  depicting  the  mass  distribution 
consists  of  assigning  a  symbol  and  a  site  for  that  symbol  for 
increments  of  the  mass  fraction  of  tho  specie  bein?  plotted. 
The  mass  fraction  of  that  specie  in  the  cell  is  determined 
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it  selected  onlla  in  *  pattern  throughout  the  grid.  The  ap¬ 
propriate  symbol  la  then  drawn  (with  the  corresponding  else} 
at  the  location  of  each  of  the  selected  call*.  Thus,  a 
graphic  representation  of  how  each  Mia  apecie  la  distrib- 
uted  through  the  grid  ia  provided  aa  ahown  in  Figures  31 
through  37.  One  can  obaerve  in  Figurea  34 ,  31  and  32  the 
distribution  of  N2  and  02  in  the  background  flow  (air)  and 
within  the  blaat  wave.  The  concentration  of  02  within  the 
blaat  wave  ia  low.  moat  of  it  having  been  deflected  around 
the  blaat  wave.  The  plot  of  conatant  mass  contour*  for  Oj, 
Figure  25.  ia  not  very  satisfactory  alnce  extremely  low  con- 
centrationa  of  02  (aaaoclatod  with  locations  very  near  to 
the  line  of  detonation)  dominate  that  plot.  Although  the 
bulk  of  the  N2  fro*  the  background  flow  is  deflected  around 
the  blaat  wave,  the  concentrations  within  the  wave  are  some¬ 
what  higher  than  the  amount  which  would  correspond  to  the 
concentration  of  oxygen  within  the  blaat  wave  because  N2  ia 
one  of  the  products  deposited  fro*  the  detonation. 

The  distribution  and  concentration  of  the  remaining  five 
detonation  products  are  ahown  in  Figurea  24  through  30  and 
33  through  37.  In  particular,  the  distribution  and  concen¬ 
tration  of  CO 2  aro  ahown  quite  clearly  in  Figure  34. 

This  approximate  distribution  of  the  material  species 
within  the  blaat  wave  la  the  foundation  on  which  a  poat- 
de tone t ion  combuation  scheme  can  be  built. 
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Figure  24.  Condtanc  Mnas  Contour*— ’Specie*  A  (Nitrogen) 
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Figure  25.  Constant  Mass  Contours — Species  B  (Oxygen) 
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Figure  31.  Mass  Distribution — Species  A  (Nitrogen) 
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Figure  33.  Mass  Distribution — Species  C  (Carbon  Monoxide) 


Figure  14.  Mess  Distribution— Species  D  (Carbon  Dioxide) 


Figure  )S.  Mess  Distribution — Species  C  (Veter) 
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Figure  37.  Mass  Distribution — Species  G  (Carbon) 
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tmral  approach*!  (or  approiia«tiB9  tha  PDC  vara  at- 
ta^ptad  before  a  successful  scheat  was  finally  achieved* 
First  s  casplata  ooabucti  on -reaction  scheme  was  tried  whe^e 


all  combustion  reaction*  atra  carried  to  completion,  burning 


either  ail  the  fuel  or  all  the  oxygen  in  a  cell  onco  during 
each  tiae  step  in  an  atteapt  at  bounding  the  p  rob  lea.  Fig¬ 
ure  10  shoes  that  the  difference  between  not  Including  PDc 
and  including  PDC  using  the  complete  coabustion  scheme  is 
quite  drastic  in  term  of  tl>e  shock  location.  However,  this 
resulted  in  aore  energy  being  intrr^uced  into  the  flow  from 


PDC  than  froa  the  detonation,  which  is  obviously  not  very 
representati\e  of  the  real  case.  Next,  stoichiometric  com¬ 
bustion  reactions  were  allowed  to  proceed  to  some  arbitrarily 
chosen  percent  of  completion.  Here  again,  to  preclude  more 
energy  from  PDC  than  from  the  basic  detonation,  the  precant' 
age  had  to  be  sat  extrsmely  small  and  there  was  no  way  to 
determine  what  percentage  was  correct  to  use.  Next,  a  crude 
reaction  rate  schema  was  tried  where  arbitrary  rates  were  e»” 
tab li shed  at  which  each  of  the  three  combustion  reactions  (C 
to  CO,  Hj  to  NjO,  and  CO  to  00^)  were  allowed  to  proceed. 
Thee#  rates  wars  defined  as  arbitrary  functions  of  the  tem¬ 
perature  of  the  cell  and  the  molar  concentration  of  the  re¬ 
actants  in  the  cell.  Here  again,  the  arbitrary  rate  func¬ 
tions  led  to  excessive  amounts  of  energy  being  deposited  dur¬ 
ing  each  time  step  and,  in  addition,  led  to  tho  formation  of 
•hot  spots."  Here  the  temperature  of  the  cell  and  the  amounts 
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rtg*.^  3*.  Shock  Front  Locatlm  In  th#  XT  M«m 


of  fool  iftd  oxygon  In  the  coll  lod  to  lor 90  onorgy  deposition 
in  that  coll  which,  in  turn,  roiood  tho  toaporoturo  of  tho 
coll.  Thii  process  continued,  causing  the  cell  temperature 
to  grow  without  bounds.  Zt  then  becane  apparent  that  no  sat* 
is  factory  coabustion  scheae  could  be  devised  without  soaohow 
incorporating  actual  reaction  kinetics. 

A  now  approach  was  taken  following  a  study  by  Cherry 
(42).  The  eight  reactions  listed  *n  Table  VIII  were  consid* 
ered  significant  as  a  starting  point. 

TABLE  VIII 

C,  H,  0.  N  Reaction*  with  Third  Body 

Reaction 

Nuabor  _ Reaction _  Rate  Constant* 

1  C02+M-C0*0+M  lx  1016  exp [-3500/(RT) ) 

2  HjO  ♦  M  ■  OH  ♦  H  ♦  M  lx  1019  t"1*0 

3  CO  ♦  M  ■  C  ♦  0  ♦  M  3  x  1016  T-0,5 

4  H2+M-H+H+M  7.5  x  1018  T”1 

5  OH  ♦  M  ■  O  ♦  H  ♦  M  2.0  x  1018  T*1 

6  02*M-0+0*M  1.9  x  1016  T*0,5 

7  N2+M-N+N*M  lx  1018  T"1 

8  NO+M-N+O+M  6  x  1016  T-0,5 

*In  ca,  mole,  *K,  sec  units.  Rate  is  for  reverse  (exothermic) 
direction. 

No  values  of  the  rate  constants  for  the  forward  (endo- 
theraic)  reactions  were  found,  so  they  were  approximated  by 
using  the  Arrhenius  rate  equation  (Ref.  37). 
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(55) 


where 

A  ■  frequency  factor 
E  ■  activation  energy  (ergs) 

T  -  temperature  (*K) 

R  0  ideal  gas  constant 

Considering,  now,  the  relationship  between  the  forward  and 
the  reverse  reaction  rate  constants. 
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If  the  ratio  of  frequency  factors  is  assumed  to  be  approxi¬ 
mately  one  and  the  difference  in  activation  energies  is  taken 
to  be  the  combustion  energy  for  the  reaction,  E  ,  then 


provides  a  satisfactory  approximation  for  the  forward  reac¬ 
tion  rate  constant.  The  expressions  used  to  obtain  the 
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forward  reaction  rate  constants  for  the  reactions  listed  in 
Table  VIII  are 


-6.26xl04 


-5.92x10 


r2 


-1.29x10s 


-5.22xl04 
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-5.10xl04 
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Units  of  the  reaction  rate  constants  are  rooles/cm^-sec. 


In  attempting  to  approximate  a  reaction  rate  controlled 
combustion  scheme  the  rate  controlling  reaction  must  be  iden¬ 
tified.  A  set  of  initial  conditions  was  established  (arbi¬ 
trarily  taken  from  a  grid  cell  in  a  previous  computation) 
containing  initial  concentrations  of  each  of  the  species  en¬ 
countered  in  the  reactions  listed  in  Table  VIII  and  a  start¬ 
ing  temperature.  A  simplified  Euler  Time-Centered  Predictor- 
Corrector  numerical  integration  scheme  was  used  in  an  auxil¬ 
iary  computation  to  integrate  equation  54  for  these  16  reac¬ 
tions  using  the  above  initial  conditions.  The  results  of 
this  computation  indicated  that  the  reactions  involving  nit¬ 
rogen  (reactions  7  and  8,  Table  VIII)  do  not  progress  signif¬ 
icantly  over  any  long  period  of  tine,  hence,  they  can  be  ig¬ 
nored.  The  reaction  dissociating  molecular  oxygen  to  atomic 
oxygen  (reaction  6  forward.  Table  VIII)  was  identified  as  the 
rate  controlling  reaction.  The  reactions  consuming  atomic 
oxygen  proceeded  at  a  much  greater  rate  than  the  reaction 
producing  it.  Based  on  this  knowledge  a  new  PDC  reaction 
scheme  was  devised  wherein  the  actual  rate  of  dissociation 
of  02  into  0  is  determined  from  an  adjusted  cell  temperature. 
This  rate,  acting  over  the  period  of  time  of  the  hydrodynamic 
time  step,  determines  the  amount  of  atomic  oxygen  which  is 
formed  during  a  time  step  and  is  thus  available  for  reacting 
with  the  combustible  materials  in  the  cell.  To  determine  how 
much  of  this  available  atomic  oxygen  goes  into  the  combustion 
of  each  of  the  three  fuels  (C,  CO,  Hj),  a  reaction  rate  for 
each  is  computed.  The  computation  of  a  rate  for  the  C  and 
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CO  combustion  presents  no  problem  since  the  molar  concentre 
tion  of  each  of  these  in  the  cell  is  known.  Determining  a 


rate  for  combustion  of  H2  presents  a  problem  because  it  de¬ 
pends  upon  the  molar  concentration  of  atomic  hydrogen  in  the 
cell  (which  is  not  a  stored  variable) .  A  way  around  this 
difficulty  was  obtained  by  assuming  that  the  atomic  and  mo¬ 
lecular  hydrogen  have  come  to  dissociative  equilibrium  at  the 
cell  temperature  which  is  not  an  unreasonable  assumption 
since  the  time  constant  for  attaining  this  equilibrium  is 
short  compared  to  the  hydrodynamic  time  step  for  most  cell 
temperatures.  With  a  concentration  of  atomic  hydrogen  de¬ 
fined,  a  rate  for  the  combustion  of  hydrogen  to  water  can  be 
computed.  Thus,  quantities  of  C,  CO,  and  H2  are  burned  pro¬ 
portional  to  the  reaction  rates  computed  above  for  each  un¬ 
til  all  the  atomic  oxygen  is  consumed. 

A  combustion  subroutine,  called  PDC,  was  constructed  to 
accomplish  these  reactions  in  the  above  manner.  The  masses 
of  each  of  the  reactants  and  products  in  the  cell  are  ad¬ 
justed  the  appropriate  amount  to  account  for  the  reactions 
and  the  combustion  energy  produced  by  the  reactions  are  added 
to  the  cell  internal  energy.  This  reaction  sequence  is  ac¬ 
complished  in  every  cell  of  the  grid  once  during  each  time 
step,  the  subroutine  PDC  being  accomplished  immediately  after 
all  mass  transport  in  the  code  has  been  performed. 

This  combustion  subroutine  has  been  developed  using  real 
reaction  rates  and  good  approximations  for  the  unknown  molar 
concentrations.  It  should,  therefore,  determine  the  amount 
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of  combustion  in  each  cell  quite  well.  Nevertheless,  exper¬ 
imental  verification  of  this  combustion  approximation  would 
be  very  helpful. 

COMPUTED  RESULTS  INCLUDING  PDC 

The  mass  and  energy  addition  solution  obtained  in  Sec- 

8  9 

tion  III  for  the  energy  values  of  7.9  x  10  and  7.9  x  10 

2  5 

ergs/cm  and  detonation  velocity  of  3.6  x  10  cm/sec  was  re¬ 
computed  with  the  combustion  subroutine  included.  For  an 

8  2 

explosive  sheet  with  an  energy  density  of  7.9  x  10  ergs/cm  , 

.  3 

the  PDC  resulted  in  an  approximate  total  of  4.4  x  10  ergs  of 
energy  being  deposited  in  the  total  grid  during  a  single  time 

9 

step  in  contrast  to  approximately  1.4  x  10  ergs  being  de¬ 
posited  in  the  grid  by  the  basic  detonation  during  this  time. 
The  amount  of  energy  added  by  the  PDC  is  not  sufficient  to 
influence  the  formation  of  the  blast  wave.  This  fact  is 
borne  out  by  Figure  39  which  is  a  plot  of  the  shock  wave 
shape  and  location  as  determined  by  a  SHELTC7  calculation 
that  included  the  PDC  subroutine  and  is  identical  with  Fig¬ 
ure  17,  produced  by  an  identical  calculation  without  PDC. 

9  2 

For  an  energy  density  of  7.9  x  10  ergs/cm  an  approxi¬ 
mate  total  of  2  x  107  ergs  was  deposited  into  the  grid  by  PDC 
reactions  compared  to  1  x  10*®  ergs  deposited  by  the  detona¬ 
tion  during  a  time  step.  Although  this  is  a  substantial  in¬ 
crease  in  PDC  energy  deposited  throughout  the  grid  over  the 

g 

amount  deposited  for  the  7.9  x  10  energy  density,  it  is  still 
small  compared  to  the  detonation  energy  deposited  and  the 
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shock  formation  is  again  essentially  uninfluenced  by  the  PDC 
as  can  be  seen  in  Figures  40  and  41. 

Thus,  it  appears  that  the  post -detonation  combustion  of 
the  detonation  products  in  air  contributes  very  little  to 
the  initial  formation  of  the  blast  wave.  If  one  were  to  con¬ 
tinue  to  sum  the  PDC  effect  over  the  entire  history  of  the 
blast  wave,  a  small  effect  would  perhaps  be  observed  at  late 
times . 
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x— distance  icnmcr* 


SHELTC?  CALCULATION  OF  EXPLOSIVE  SOURCE  IN  HYPERSONIC  FLOW  (WITH  PDC) 
TIME  .00S7MM  SEC  CYCLE  1200  PROBLEM  30.000 
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SHELTC9  CALCULATION  OF  EXPLOSIVE  SOURCE  IN  HYPERSONIC  FL'W  lUITn  pOC J 
TIME  . OOSOM  SEC  CYCLE  1200  PROBLEM  30-000 
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SSCTXOM  V 

CONCLUSIONS  AND  ACCOMNDIOATIONS 

The  protl«  of  determining  the  cuct  ihipt,  location  and 
properties  associated  with  tho  blast  vavt  from  a  constant- 
velocity  detonation  of  aa  explosive  sheet  has  been  found  to 
be  ixtrtMly  complex.  Xt  is  unlikely  that  a  closed-form  an¬ 
alytical  solution  for  even  the  most  idealised  form  of  the 
problem  can  be  obtained.  Numerical  computations  usln9  hydro- 
dynamic  computer  codes  offer  the  greatest  hope  for  obtaining 
a  realistic  solution. 

A  solution  for  the  problem,  idealised  to  consider  the 
explosive  sheet  as  releasing  only  ener9y  and  the  surrounding 
medium  to  be  an  Ideal  «iss  (t  •  1.4)  #  hss  been  obtained  using 
the  SMKLL7C  computer  code.  The  st^pe  and  location  of  the 
shock  front  along  with  the  properties  and  now  behind  the 
front  have  been  determined  for  several  energies  and  veloci¬ 
ties  of  detonation. 

The  shape  and  location  of  the  shock  wave  which  is  formed 
depend  both  upon  the  energy  density  of  the  explosive  sheet 
and  upon  the  velocity  of  detonation.  It  is  clear  that  the 
shock  forms  and  rsmalna  continually  ahead  of  the  line  of  det¬ 
onation*  the  distance  in  front  being  determined  by  the  en¬ 
ergy  density  of  the  explosive  sheet  end  the  velocity  of  det¬ 
onation.  An  increase  in  the  energy  density  causes  the  shock 
to  move  out  further  in  front  of  the  line  of  detonation  while 
am  increase  in  the  velocity  of  detonation  tends  to  reduce 
this  distance.  The  shock  wave  for  each  energy  and  velocity 
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of  detonation  Is  near  parabolic  is  ah  ape  closs  to  tho  lino 
of  dotonstion  and  approaches  a  fixed  angle  f  the  Nach  angle) 
at  large  distances  from  the  line  of  detonation.  Arguments 
can  be  salt  as  to  the  exact  location  of  tL  shock  front 
(since  in  real  gases  the  shock  has  a  finite  structure)  but 
these  are  relatively  unimportant  so  long  as  a  consistent 
scheme  is  used  for  locating  the  shock  in  all  the  compute* 
tions.  However,  the  spacing  between  the  numerically  obtained 
isobars  tnat  form  the  shock  front  (see  Figure  •)  is  greater 
than  would  be  observed  in  an  actual  blast  wave  in  air  because 
the  'effective  viscosity"  in  S1ICLLTC  spreads  the  snock  over 
w,  greater  distance  than  would  be  observed  in  the  real  case. 

The  pressures  behind  the  blast  wave  are  highest  near 
the  line  of  detonation  and  are  large  all  along  the  shock 
front  (see  Figure  •) .  The  parameters  chosen  to  determine 
the  "effective  viscosity"  in  SHELl/rc  (SI,  S2,  and  S3— see 
Appendix  A)  tend  to  show  peak  pressures  slightly  lower  than 
an  analytical  solution  for  the  bust  problem.  However,  the 
values  attained  here  are  thought  to  be  accurate  within  the 
range  of  experimental  error  from  any  large  explosive  experi¬ 
ment. 

The  mass  denrity  also  is  greatest  immediately  behind 
the  shock  where  the  bulk  of  the  mass  behind  the  blast  wave 
has  accumulated.  A  low  pressure,  rarefied  region  forma  be¬ 
hind  the  line  of  detonation  and  moves  with  it  as  it  proceeds 
slong  the  explosive  sheet  es  can  be  seen  in  Figures  42  and 
43.  Figure  11  shows  that  in  the  coordinate  system  where  the 
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MU.TC  chomtiw  or  rotNT  soukt  is  mtcmic  nm 

Ilif  0  000014  ICC  CVCU  410  71  000 
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Flgura  42.  Cons (ant  Pressure  Contours  (Isobars) 


11m  of  detonation  is  fixed,  *11  flow  it  essentially  froa 
loft  to  right  through  tho  grid.  However,  in  tho  coordinoto 
ays  too  attached  to  tho  undisturbed  gas  (lino  of  detonation 
■oeoo—ooo  Figure  12) ,  tho  flow  of  particles  in  tho  region 
behind  tho  shock  and  in  front  of  the  lino  of  detonation  fa- 
long  tho  explosive  shoot)  is  forward  (toward  the  shock  front), 
but  tho  particle  velocity  is  less  than  the  velocity  of  deto¬ 
nation.  Hence,  the  detonation  overtakes  tho  ■ass  flow  and 
as  the  detonation  approaches,  tho  particle  velocity  turns 
outward,  away  fro*  the  explosivo  sheet.  Finally,  downs trees 
fro*  the  line  of  detonation,  the  particle  velocity  along  the 
explosive  sheet  is  directly  away  fro*  the  line  of  detonation. 
Hence,  there  is  a  reversal  of  flow  in  the  region  close  to 
the  explosive  sheet  as  the  detonation  passes. 

The  sheet  explosive  problo*  %*at  nore  realistically  sod* 
eled  by  considering  the  explosive  material  to  release  mass 
as  well  as  energy.  A  solution  for  tho  blast  wave  fro*  this 
swxlel  was  obtained  using  the  *ulti-*aterial  SHELTC?  hydrody¬ 
namic  code  (which  was  developed  for  use  in  this  study)  along 
with  a  temperature-dependent  equation  of  state.  The  forma¬ 
tion  of  the  blast  wave  was  similar  to  the  idealized  case, 
except  that  the  location  and  curvature  of  the  shock  front 
were  altered.  In  this  suss  and  energy  addition  solution  the 
shock  front  forms  farther  in  front  of  the  line  of  detonation 
than  for  the  idealised  solution  but  it  curves  back  store 
sharply  producing  a  shallower  shock  profile.  This  solution 
is  probably  mors  representative  of  the  wave  fro*  a  real  ex¬ 
plosion. 

10t 


A  scheme  for  estimating  the  contribution  to  the  blast 
wave  of  the  pust-detonatior  combustion  was  devised  based  on 
an  *effective  mixing"  which  is  inherent  in  the  SUE1XC7  code. 

A  method  for  approximating  the  combustion  reactions  and  de¬ 
termining  the  energy  released  by  these  approximate  reactions 
was  developed  and  used  to  determine  the  effect  of  the  PDC  on 
the  blast  wave.  The  results  of  this  wtrk  indicate  that  poet- 
detonation  combustion  has  little  or  no  effect  on  the  forma¬ 
tion  of  the  blast  wave.  Lvcn  though  significant  amounts  of 
energy  may  be  released  by  the  combustion,  the  amounts  are 
small  compared  to  the  detonation  energy  released  and  thus 
contribute  little  to  the  formation  of  the  wave.  Even  though 
there  Is  some  doubt  about  the  validity  of  the  mixing  used  in 
determining  the  a mount  of  PI) C.  the  above  conclusion  remains 
unchanged  since  a  substantial  increase  in  PDC  energy  would 
be  required  before  any  noticeable  change  in  the  blast  wave 
would  be  obtained.  Since  the  combustion  a|  proxiatation  scheme 
is  based  on  real  reaction  rates  or  reasonable  approximations 
thereof,  it  can  be  accepted  as  reasonably  valid.  Thus,  al¬ 
though  soon  error  is  introduced  by  the  combustion  approxima¬ 
tion,  the  major  source  of  uncertainty  in  determining  the  TOC 
energy  released  is  the  mixing  of  mass  species  which  deter¬ 
mines  the  amount  of  materials  available  for  PDC.  Substantial 
variation  in  th*  mixing  can  occur  with  only  a  minimum  effect 
on  the  formation  of  the  blast  wave. 

An  expression  was  empirically  obtained  (Equation  23) 
which  approximates  the  shape  and  location  of  the  shock  front 
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as  determined  by  the  idealised  solution  for  e  given  energy 
density  end  velocity  of  datamation.  if  approximate  informa¬ 
tion  on  tha  shock  front  location  is  all  that  is  required, 
then  this  expression  can  be  used  to  obtain  it  directly  A 
better  estimate  of  the  actual  shock  location  can  be  obtained 
by  adjusting  downward  the  shock  profile  obtained  from  Equa¬ 
tion  23  an  amount  comparable  to  that  observed  in  Figure  22. 

If  additional  information  about  the  properties  of  a  particu¬ 
lar  blast  wave  is  required  (such  as  pressures,  particle  ve¬ 
locities,  etc.),  a  computer  solution  following  the  methods 
described  here  is  necessary.  In  viiv  of  thr  negligible  con¬ 
tribution  of  the  FDC  it  need  not  be  included  in  the  computa¬ 
tions. 

j/XjBSTlOWS  roh  ADDITIONAL  M  SHAhCM 

The  work  accomplished  during  this  stud;*  is  of  sufficient 
importance  and  has  wide  enough  application  to  warrant  addi¬ 
tional  study  and  expenditure  of  research  effort.  Suggestions 
for  further  work  are  described  in  the  follwinq  paragraphs. 

The  empirically  obtained  express  on  describing  the  loca¬ 
tion  and  shape  of  the  shock  wave  (equation  23,  Section  11) 
has  been  developed  from  limited  data.  The  suitability  of 
this  expression  for  explosive  energy  densities  iw*tmd  7.9  x 
10*  ergs/cm*  hes  not  been  verified,  in  addition,  it  appears 
that  a  similarity  in  shock-wave  profiles  exists  for  differ¬ 
ent  energy  densities  and  for  different  velocities  of  detona¬ 
tion.  Xt  may  be  possible  to  obtain  a  single  nondimens ional 


expression  (nondimens  legalised  to  energy  and  datamation  ve- 
locity)  which  would  correctly  describe  tha  entire  family  of 
shoc>  prof  lias  In  tha  xy  plana.  An  affort  to  davalop  such  a 
nondincnsional  expression  or  at  laast  to  davalop  an  empirical 
expression  for  predicting  tha  shoc\  front  shape  and  location 
fron  a  lariat  data  base  is  warranted.  Some  additional  con* 
putations  to  obtain  a  lar9er  data  base  nay  be  required. 

A  detailed  study  and  definition  of  the  aass  transport* 
nixing*  and  diffusion  properties  of  SHIXTC?  (or  other  nulti- 
naterial  ruler lan  hydiodynanic  codes)  would  be  a  significant 
contribution.  runctionsl  relationships  should  be  developed 
which  would  describe  the  nixing  of  mu  sjocics  as  functions 
of  hydrodynamic  flow,  speciea  concentrations,  grid  cell  site* 
etc.  Correlatt'a  of  these  relationship#  with  a  well  designed 
experinent  would  be  particularly  valuable.  A  neaningful  ex* 
perlnent  suitable  to  this  goal  can  be  accomplished  in  a  super* 
sonic  wind  tunnel  where  a  thin  flat  plate  with  ports  along 
its  leading  edge  could  be  us<  1  to  injec  >  second  mass  specie 
directly  In  opposition  (along  the  sane  centerline)  to  the  in¬ 
coming  supers  rue  flow  (  the  first  mass  specie.  Boundary 
layer  effects  would  be  minimised  in  this  experinent  and  a 
valid  calculation  of  the  hydrodynanic  flow  can  be  accomplished. 
Sampling  of  the  concentration  of  the  two  species  of  mass 
downstream  from  tf.a  point  of  injection  will  provide  experi¬ 
mental  data  with  which  to  correlate  the  nixing  predicted  by 
the  codo.  Modifications  to  the  code  which  would  improve  its 
capability  to  nodel  real-flow  nixing  would  be  a  valuable  con¬ 
tribution  . 
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Some  studies  of  ths  dstonstion  of  explosive  materials  is 
confined  volumes  have  been  made  (25) .  Additional  experinents 
■ore  carefully  designed  for  correlation  of  calculations 
should  be  performed.  A  scries  of  cylindrical  charges  of  TWT 
should  be  detonated  in  a  large  cylindrical  detonation  chaaber 
and  these  events  calculated  both  in  an  idealised  manner  using 
SMELLTC  and  then  acre  realistically  using  SHELTC7 .  The  con¬ 
tribution  of  PDC  can  be  experimentally  determined  by  purging 
the  chamber  with  nitrogen  prior  to  one  of  the  detonations . 

A  later  experieent  in  which  the  chamber  is  purged  with  oxy¬ 
gen  will  provide  additional  valuable  information.  Calcula¬ 
tion  of  these  experiments  with  SHLLTC7  will  determine  the 
capability  of  the  PDC  subroutine  to  predict  the  contribution 
of  PDC  to  the  blast  wave. 

Finally,  detonation  of  sheets  of  exploeives  (preferably 
TNT)  in  open  air  would  provide  the  moat  valuable  data  against 
which  to  test  the  calculational  ability  of  these  codes.  Here 
again,  the  contribution  of  PDC  in  the  formation  of  the  blast 
wave  can  be  examined  experimentally  by  enclosing  the  explo¬ 
sive  sheet  in  a  bag  made  of  thin  transparent  plastic  purged 
with  nitrogen  or  oxygen.  Measurement  of  pressures  at  selected 
points  corresponding  to  locations  in  the  computational  grid 
would  be  required.  High-speed  color  photography  of  the 
traveling  blast  wave  would  provide  data  for  direct  correla¬ 
tion  of  shock  front  shape  and  location.  It  would  be  hoped 
that  in  a  carefully  planned  experiment  some  indication  of  the 
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APPENDIX  A 


THE  SHELLTC  CODE 

The  SHELLTC  code  it  a  two-coordinate  system  expansion 
Of  SHELL  OIL  which  it  the  basic  code  of  the  SHELC  family  of 
hydrodynamic  codct.  The  SHELL  family  of  codet  evolved  di¬ 
rectly  from  the  particle-in-cell  (PIC)  method  of  computation 
developed  by  P.  H.  Harlow  (15)  at  Lot  Alamos  in  1955.  De¬ 
velopment  of  the  SHELL  computational  scheme,  formulation  of 
tble  achcmc  into  a  working  code,  and  convcrtion  from  particle 
to  continuum  arc  credited  to  l».  E.  Freeman,  W.  E.  Johnton  and 
J.  M.  tfalsh.  The  meat  detailed  description  of  the  SKILL 
codet  is  provided  by  Whitaker,  Kawroki  and  Keedham  (1C). 

The  following  diecusalon  of  SHELL  follows,  in  part,  that 
document. 

The  equations  solved  in  SKILL  are  the  1-D  axl symmetric 
partial  differential  equations  for  nonvitcoui,  nonconducting 
compressible  fluid  flow.  These  equations.  Including  the 
equation  of  state,  are 

Wats 

(it  4  ^*7)p  4  p7'“  *  0  CA1) 

Momentum 

p(y£  ♦  u*v)S  ♦  Vp  ♦  py#  •  0  (A?) 

Energy 

♦  &*v)e  ♦  V»pu  ♦  pu*V$  ■  0  (A3) 
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P  •  P(P«I) 


P  density  in  qnm/cn* 
u  2  velocity  in  ca/sec 
p  pressure  in  dynes/ca3 

r  specific  total  energy  in  ergs/gm 

-  I  ♦  1/2  u2 

X  specific  internal  energy  in  *rgs/gm 
t  time  in  sec 

#  potential  of  external  force  field  in  ergs/gm 

SMKLL-OIL  is  a  one  aster ial,  pure  ruler isn  code.  It 
solves  the  hydrodynamic  equations  by  dividing  the  region  oc¬ 
cupied  by  tne  fluid  into  a  no  ah  of  fixed  cells.  The  fluid 
is  then  described  at  any  instant  of  tine  by  specifying  the 
velocity*  density,  and  internal  energy  for  each  cell.  These 
valves  are  considered  to  be  knovr  at  the  center  of  each  cell 
and  are  constant  over  it.  Thli  forced  homogeneity  of  the 
cell  introduces  a  false  diffusion  which  poses  no  probisa  in 
this  one  material  code  but  ueoomes  a  major  disadvantage  in 
multi-material  versions  of  SHILL. 

Other  disadvantages  of  SHELL-jIL  a  re  the  general  inabil¬ 
ity  of  Culerian  codes  to  resolve  fine  detail  moving  with  the 
fluid*  since  the  ncih  is  fixed  in  space*  and  the  Inability  to 
follow  material  interfaces.  However*  Culerian  codes  enjoy 
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tlM  major  tiimm  of  tal»|  «kl«  to  aolvt  tbe  hydrotynaale 
tfutloai  cvm  im  the  pmuct  of  lor 90  fluid  distortions 

10  beg i*  s  HILL-OIL  calculation,  tho  problem  oust  first 
bo  gossrotod  by  Ci AN*  tbo  generator  cods  for  SMELL.  CLAM 
sots  up  tho  nosh*  giving  ssch  ' all  its  diosnsions  and  tht 
following  quantities!  o  radial  and  an  axial  vslocity  compo¬ 
nent,  a  mass,  and  a  specific  Internal  energy. 

Tho  coll  quantities  are  derived  fro*  data  entered  in 
groups  of  packages.  These  data  include  the  type  of  material, 
dimensions,  velocity  components,  density,  and  specific  inter- 
nal  energy  of  the  package.  To  describe  as  sany  geometries 
end  energy,  density  and  velocity  distributions  as  possible, 
CLAM  places  K*  particles  into  each  cell,  where  1  <  N  <  20 
and  is  also  included  in  the  package  data.  Each  cell  is  di¬ 
vided  into  N*  equal  parts,  and  a  particle  is  placed  at  the 
center  of  each  area.  Taking  this  package  data,  a  fit  assigns 
each  patvicle  two  velocity  components— a  density  and  a  spe¬ 
cific  Internal  energy.  Then  the  mass  of  each  particle  is 
computed  1  the  density  times  the  volume  of  that  part  of  the 
coll  containing  the  particle.  The  mass  of  the  cell  is  the 
sum  of  the  ameses  of  all  the  particles  in  the  cell.  Both  mo- 
mer*  m  components  are  calculated  as  he  sun  of  the  individual 
momentum  components  of  each  particle  in  the  cell.  Tho  inter¬ 
nal  energy  of  each  cell  is  the  sum  of  the  internal  energies 
of  all  tha  particles  in  the  cell.  Finally,  these  cel]  quan¬ 
tities  are  converted  to  two  velocity  components  and  specific 
internal  energy. 
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There  are  five  geometries  available  in  CLAM  such  that 
mass  may  be  loaded  into  the  grid  in  zones  with  the  following 
shapes:  rectangle,  triangle,  ellipse,  perturbed  ellipse  and 

circle.  These  zones  are  in  the  r-z  plane  and  take  their  3- 
dimensional  counterparts  upon  rotation  about  the  z-axis. 

After  all  packages  have  been  processed,  CLAM  puts  all 
cell  dimensions  and  quantities  on  tape. 

This  output  provides  the  starting  conditions  for  the 
SHELL  calculation.  The  SHELL  calculation  advances  explicitly 
in  steps  or  cycles.  That  is,  the  cell  quantities  are  calcu¬ 
lated  for  time  t  +  At  in  terms  of  those  at  time  t.  The  solu¬ 
tion  of  the  hydrodynamic  equations  is  divided  into  two  phases. 
In  the  first,  the  Euler ian  field  functions  are  updated,  con¬ 
sidering  pressure  effects  alone  while  neglecting  material 
transport  due  to  fluid  motion.  In  the  second  phase,  contin¬ 
uous  mass  flow  across  cell  boundaries,  new  cell  densities, 
velocities,  and  specific  internal  energies  are  calculated. 
Mass,  momentum,  and  total  energy  are  conserved. 

There  are  three  time-control  conditions  that  govern  the 
time  step,  At.  They  are 

a.  The  Courant  condition 

b.  The  maximum  of  j^l  and  |^-|  < 

c.  A  negative  time-step  option 

The  first  two  conditions  prohibit  the  transmission  of  a  sig¬ 
nal  or  mass  across  more  than  one  cell  in  one  time  interval. 
This  requirement  is  imposed  by  considerations  of  stability 
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RC(J)  is  radial  distance  to  center  of  a  cell  in  the  Ith  column. 
Axial  dimension  of  each  cell  is  DY. 

Radial  dimension  of  each  cell  is  DX. 

Cross-sectional  area  of  each  cell  is  TAU(I)  where 
TAU(I)  =  2 • n • RC ( I ) • DX 
Volume  of  each  cell  is 

VOL ( I )  =  2'7i*RC(I)  *DX*DY 

Figure  Al.  SHELL  Zoning — Two-Dimensional  Axi symmetric  Case 


of  the  finite  c  f f t  ronce  equations.  The  third  condition  will 
be  discussed  below. 

Alter  a  time  stop  has  been  determined ,  SHELL  performs 
the  first  phase  of  the  hydrodynamic  calculation  where  the 
Eulerian  description  cf  the  fluid  is  advanced.  This  is  done 
according  to  a  finite  difference  approximation  to  the  hydro- 
dynamic  equations  Al  ,  A2 ,  and  A3. 

Conservation  of  mass  (equation  Al)  is  automatically  sat¬ 
isfied  by  the  fluid  model.  Mass  which  leaves  one  cell  enters 
another  and  the  change  in  mass  is  accordingly  subtracted  from 
the  donor  cell  and  added  to  the  receiver  cell.  Mass  is  nei¬ 
ther  created  nor  destroyed. 

Conservation  of  momentum  and  energy  (equations  A2  and 
A3)  is  treated  as  follows:  the  first  phase  considers  the 
fluid  at  rest  and  determines  only  the  contribution  of  the 
pressure  terms  to  the  time  derivative.  Therefore,  the  trans¬ 
port  term  (second  term  on  the  left-hand  side)  of  each  equa¬ 
tion  is  dropped.  Since  the  hydrodynamic  quantities  are  de¬ 
fined  at  the  cell  centers,  the  equations  in  finite  difference 
form  become 


Momentum 
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Energy 
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k  +  TTnT 
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where 


Pk  +  PkL 
PL  =  *  JL... 


PR  = 


Pk  +  PkR 


PB  = 


Pk  +  PkB 


PA  = 


Pk  +  PkA 


VB  = 


Vk  +  VkB 


VA  = 


Vk  +  VkA 


UL  * 


Uk(ri  +  ri-l}  +  UkL{ri-l  +  ri-2' 


UR  = 


u.  (r.  +  r.  ,)  +  u.-ir.,,  +  r.) 
k  1  l-l  kR  l+l  l 


and  k  is  the  index  of  the  cell  center  and  i  ic  the  index  of 
the  right-hand  boundary  of  cell  k  (see  Figure  A2) . 

Two  passes  in  succession  are  made  through  the  first 
phase  of  calculation  of  each  cycle.  In  the  first  pass,  ten¬ 
tative  new  values  of  velocity  are  calculated  for  a  full  time 
step.  The  internal  energy  is  updated  by  half  a  time  step, 
using  the  old  velocities.  In  the  second  pass,  the  internal 
energy  in  updated  another  half-time  step,  using  the  tentative 
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i  is  the  right  boundary  of  cell  k 
j  is  the  top  boundary  of  cell  k 
kA  is  the  cell  above  cell  k 
etc. 

Figure  AZ.  The  SHELL  Mesh 


new  velocities  calculated  in  the  first  pass.  The  energy 
equation  is  treated  in  this  fashion  from  considerations  of 
stability  as  well  as  greatest  accuracy  in  the  behavior  of 
fluid  entropy.  The  energy  of  the  system  is  conserved  iden¬ 
tically,  even  in  the  finite  difference  approach. 

In  both  passes,  the  internal  energy  is  checked  to  see  if 
the  updated  value  has  become  negative.  If  it  h^s,  an  option 
exists  to  integrate  back  to  the  original  configuration  of  the 
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fluid  at  the  beginning  of  the  cycle  by  using  the  negative  At. 
Then  the  integration  goes  forward  again  with  a  smaller  At 
which  has  been  calculated  and  which  will  keep  the  internal 
energy  positive. 

In  the  second  phase  of  the  hydrodynamic  calculation, 
continuous  mass  transport  is  calculated  according  to  the 
equation  for  the  conservation  of  mass,  which  in  finite  dif¬ 
ference  form  is 


This  can  be  rewritten  to  the  following  form,  which  is  used 
by  the  code 


,(n+l)  _ 


Mj|n)  +  TTAt 


[(ri  -  ri-l)<JBeB  - 


VTPTJ 


+  24z(ri-iaLPL  '  ri“RPR>] 


where 

VBPB  1  mass  flux  across  bottom  face  of  cell  K 

vtpt  =  mass  flux  across  top  face  of  cell  K 

Glpl  i  mass  flux  across  left  face  of  cell  K 

uRpR  =  mass  flux  across  right  face  of  cell  K 

and  where  the  densities  are  those  Oi.  the  donor  cells  and  the 
velocities  are 
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1/2  (v  +  v  ) 

v  =  - - tt  where  M  is  the  cell  above  cell  K 

1  f  (*M  “  VZ7 

1/2  (u  +  u„) 

u  =  - - tt-  where  M  is  the  cell  to  right  of 

1  +  (dM  ‘  VSt  cell  K 

The  velocity-weighting  scheme  used  above  is  one  that  ensures 
stability  in  regions  behind  i  shock  front. 

When  mass  transport  is  being  calculated  for  a  given  cell, 
the  transfer  at  the  left  and  bottom  faces  is  already  avail¬ 
able  from  the  previous  column  sweep  and  cell  below,  respec¬ 
tively.  Therefore,  for  a  particular  cell,  the  mass  transport 
is  calculated  for  the  top  and  right  faces  only.  After  the 
masses  transferred  at  all  faces  of  a  cell  have  been  deter¬ 
mined,  the  momenta  and  the  total  specific  energy  associated 
with  these  masses  are  computed.  Then,  by  conserving  both 
axial  and  radial  momentum,  the  new  velocities  are  calculated. 
The  total  energy  carried  by  the  transported  masses  is  sub¬ 
tracted  from  the  donor  cell  and  added  to  the  receiver  cell . 
Then,  by  conserving  both  axial  and  radial  momentum  the  new 
velocities  are  calculated.  The  total  energy  carried  by  the 
transported  masses  is  subtracted  from  the  donor  cell  and 
added  to  the  receiver  cell.  Then,  by  conserving  total  energy 
the  new  internal  energy  of  each  cell  is  the  difference  be¬ 
tween  the  new  total  energy  and  the  new  kinetic  energy.  The 
new  specific  internal  energy  is  the  new  internal  energy  di¬ 
vided  by  the  new  mass. 
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Mj[n+1)  =  MJ[n)  +  A  Mg  ►  AMl  -  AHj  -  AMR 


(A10) 
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where  M  designates  the  donor  cell. 


(A13) 


and  AMR  are  the  masses,  in  grains  trans¬ 
ferred  across  the  bottom,  left,  top,  and  right  faces  of  cell 
K,  respectively,  and  where  the  quantities  enclosed  in  brackets 
and  subscripted  by  M  are  the  specific  total  energies  of  the 
doner  cells.  The  above  are  the  final  values  of  velocity, 
mass,  and  specific  internal  energy  for  the  cycle.  If  any 
mass  leaves  tho  top,  right,  or  bottom  boundaries  of  the  grid, 


where  AMg,  AM^,  AM^,, 
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that  mass  and  the  associated  energy  are  subtracted  from  the 
total  mass  and  energy  of  the  system  respectively. 

The  calculation  of  mass  transport  in  SHELL-OIL  has  an¬ 
other  feature  that  removes  preferential  transfer  caused  by 
initial  choice  of  indexing.  If  the  mass  out  the  top  and 
right  would  remove  more  than  the  mass  in  the  cell,  the  code 
recalculates  new  mass  transfer  by  a  weighting  procedure.  The 
AMr  would  be  its  fraction  of  the  total  mass  out  times  the 
mass  of  the  cell  and  AM,p  would  be  its  fraction  of  the  total 
mass  out  times  the  mass  of  the  cell.  That  is. 


AM,p  = 


(MR"’  +  “l  +  AMb) 


AM.J, 
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In  this  calculation  AMp^  and  AMR  are  considered  zero  if  they 
are  flowing  into  cell  K  so  that  the  maximum  mass  that  could 
flow  out  the  top  and  right  is  M^n^  •  However,  if  AMp^  and  AM? 
are  flowing  out  of  cell  K,  the  cell  is  committed  to. deliver 
this  mass  and  so  the  maximum  mass  that  can  flow  out  the  top 
and  right  is  +  AML  +  AMfi  (where  AMp^  and  AMfi  are  negative 

signifying  flow  in  negative  direction) . 


STABILITY  OF  SHELL  CODES 

The  Eulerian  equations  used  in  the  first  phase  of  the 
calculation  are  unstable,  since  they  do  not  contain  the  dis¬ 
sipative  mechanism  necessary  for  a  finite  difference  technique 
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to  calculate  shocks.  Since  shocks  appear  as  mathematical 
surfaces  on  which  such  fluid  properties  as  density#  pressure# 
internal  energy,  and  entropy  have  discontinuities#  suitable 
boundary  conditions  (those  provided  by  the  Rankine-Hugoniot 
equations)  are  needed  to  connect  the  values  of  the  above 
quantities  on  both  sides  of  the  shock.  However#  Von  Neumann 
and  Richtmeyer  (6)  have  shown  that  the  hydrodynamic  equations 
can  be  straightforwardly  solved  by  numerical  methods  if  an 
artificial  dissipative  term  is  introduced.  This  term  smears 
the  shock  so  that  the  surface  of  discontinuity  is  replaced  by 
a  thin  layer  in  which  the  above  quantities  vary  rapidly  but 
continuously .  Hence,  the  numerical  calculation  proceeds  as 
if  there  were  no  shock  at  all  and  at  the  same  time  satisfying 
the  Rankine-Hugoniot  conditions. 

The  instability  of  the  calculations  in  the  first  phase 
introduces  the  main  source  of  entropy  loss  in  the  entire  cal¬ 
culation.  However,  stable  calculations  can  be  made  by  SHELL, 
since  errors  introduced  in  the  second  phase  have  the  effect 
of  smoothing  out  the  discontinuities. 

Harlow  (15)  has  shown  that  the  treatment  of  mass  move¬ 
ment  in  the  second  phase  of  the  calculation  produces  dissipa¬ 
tive  effects  that  give  stability  to  the  calculation.  He  dem¬ 
onstrated  this  by  expanding  the  difference  equations  in  a 
Taylor  series  about  some  central  space  and  time.  The  result 
was  the  original  differential  equations  plus  some  additional 
terms  that#  in  lowest  order ,  have  the  appearance  of  true 
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viscous  and  heat  conduction  terms.  Hence  they  are  called  the 
effective  viscosity  and  effective  heat  conduction. 


Conservation  of  Mass 
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Conservation  of  Momentum — r  direction 
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Conservation  of  Momentum — z  direction 
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Conservation  of  Energy 
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where 

Xu  =  l/2p | u | Ar 

Xv  =  1/2  p | v | Az 

However,  Bjork  (40)  has  shown  that  any  attempt  to  relate 
the  terms  appearing  on  the  right-hand  side  of  the  equations 
above  to  distinct  physical  effects  leads  to  many  contradic¬ 
tions — the  "effective  viscosity"  terms  contain  symmetric  and 
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antisymmetric  ©lenonts;  the  origin  of  the  symmetric  elements 
is  not  viscous;  the  presence  of  the  antisymmetric  elements 
simply  adds  confusion  to  any  attempted  representation;  the 
terms  do  not  leave  the  flow  equations  in  an  invariant  form; 
a  heat  conduction  law  is  implied  where  heat  flow  is  propor¬ 
tional  to  the  gradient  of  specific  internal  energy  :ather 
than  of  temperature.  Moreover,  the  values  of  these  terms  far 
exceed  the  magnitude  of  the  analogous  physical  terms.  There¬ 
fore,  these  terms  cannot  be  thought  of  an  anything  except  er¬ 
rors,  but  they  do  make  SHELL  a  practical  code. 

The  form  of  the  effective  viscosity  suggests  another 
limitation  of  the  SHELL  code.  Since  the  viscous  effects  arc 
proportional  to  the  local  mean  fluid  speed,  in  regions  of  low 
fluid  speed  the  viscosity  will  become  ineffective  and  the  in¬ 
stabilities  of  the  difference  equation  will  cause  an  exponen¬ 
tial  growth  of  any  perturbations  to  the  solution.  But  as  the 
velocities  increase  and  become  comparable  to  the  local  sound 
speed,  the  viscosity  again  takes  effect  to  limit  further 
growth  of  instability.  Hence,  the  instability  is  bounded  and 
calculations  can  be  made.  This  effective  viscosity  is  the 
main  source  of  entropy  production  in  the  calculation. 

A  later  modification  to  the  SHELL  codes,  accomplished  by 
Nawrocki,  included  an  artificial  viscosity  addition  scheme. 

By  selecting  appropriate  values  for  three  parameters,  SI,  S2 
and  S3,  an  energy  dissipating  effect  is  obtained  associated 
with  the  sound  speed,  the  velocity  gradient  and  the  magnitude 
of  the  velocity,  respectively.  By  proper  selection  of  the 
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parameters,  the  effective  viscosity  inherent  in  SHELL  can  be 
enhanced  or  diminished . 

DEVELOPMENT  OF  SHELLTC 

In  developing  a  version  of  SHELL  for  use  in 
coordinates  we  return  to  the  basic  equations  for 
compressible  flow  in  that  coordinate  system. 

Maas 

(it  +  u*v)p  +  Py,U  »  0 
Momen  um 

p(|t  +  ^#V)^  +  yP  +  Py<fr  “  0  (A21) 

Energy 
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Neglecting  7$  and  holding  all  items  constant  with  respect  to 
Z,  we  have,  in  cartesian  coordinates. 
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Using  equations  A24  and  A25;  equations  A20,  A21  and  A22  be¬ 
come  (letting  U  -  u,  U  -  v) 

x  y 


It  +  lx(oul  +  ly<pv)  ”  0  (A26) 

p  It  +  pu  37  +  pv  I?  +  H  "  0  <A27> 

P  &  +  P»  £  ♦  Pv  U  -  If  ■  0  <A2»> 

P  H  +  P“  i  +  pv  If  +  y*n'  +  ly'Pv<  =  0  <A29> 

Dropping  the  convective  terms  as  was  done  previously  with 
axisymmetric  coordinates  we  get  from  equations  A27  through 
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(where  E  has  been  replaced  by  I) .  In  finite  difference  form 
equations  A30  and  A31  are  the  same  as  was  obtained  for  the 
axisymmetric  case  earlier.  They  are 
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where 


Pk  +  PkL 


Pk  +  PkR 


The  energy  equation  A32  takes  a  somewhat  different  form  in 
cartesian  coordinates  than  in  axisymmetric.  In  finite  dif¬ 
ference  form  it  becomes 
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Here  again  the  velocity  at  each  point  is  the  average  of  that 
at  the  beginning  of  the  time  step  and  the  interim  (~)  value 
calculated  above  in  equations  A3J  and  A34.  Now  let 
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With  equations  A36  and  A37,  equation  A33  can  be  rewritten 
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This  equation  is  now  accomplished  two  passes  through  the 
code — the  first  computes  the  change  in  energy  in  time  At/2 
using  the  old  (n)  values  of  velocities  and  the  second  com¬ 
putes  the  changes  in  time  At/2  using  the  new  velocities  (~) 
computed  above  by  equations  A33  and  A34 . 

In  the  phase  II  calculation  mass  is  permitted  to  flow 
governed  by  the  continuity  equation.  In  finite  difference 
form,  equation  A26  becomes 
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We  again  use  the  same  velocity  weighting  scheme  as  with  axi- 
symmetric  coordinates 


for  vj_i  we  use  v: 
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(0kT  + 

<1 

X* 

•sis 

1/2 

<akL 

*  5k> 

1  + 

(SkL  + 

“k’rl 

1/2 

<akR  + 

5k> 

1  + 

<GkR  + 

~  "At 
uk>3S 

(A41) 


Using  these  and  multiplying  by  the  volume  of  a  cell  (where 
volume  =  Ax* Ay)  equation  A40  becomes 


pj[n+1)AxAy  =  p^n)AxAy  +  [AxfpgVg  -  PTVT) 


+  Ay(pLUL  -  PRUR))At 


(A42) 


Finally 

Mj[n+1)  =  Mj[n)  +  At(Ax(pBVB  -  pTVT)  +  Ay(pLUL  -  pR0R) )  (A43) 

The  computational  grid  for  SHELLTC  is  constructed  in  the 
XY  plane  and  is  symmetric  about  the  y  axis  as  depicted  in 
Figure  A3.  It  takes  its  3-D  form  by  including  a  unit  depth 
in  the  Z  direction. 
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PCO)  »e  *ho  X  dietance  to  the  center  o?  a  cell  In  the  1th 
column. 

t  dinenetnn  of  each  cell  le  DV. 

X  dint  >» ion  of  each  cell  ke  DX 

Croee -fractional  area  of  each  cell  le  TAU(l)  where 
TAUI1J  -  OX  'Unit  Depth  *  OX 
Volume  of  each  cell  «• 

VOMI)  *  OX*OY 

fl|wt*  A).  Mill  M«ir  Cm* 


SHELLTC  was  formed  by  including  the  hydrodynamic  equa¬ 
tion  for  cartesian  coordinates  into  SHELL  OIL  along  with  ap¬ 
propriate  flags  for  determining  which  coordinate  system  is 
being  used.  Some  modification  of  CLAM  was  also  required  to 
obtain  CLAMTC ,  the  generator  code  for  SHELLTC. 

The  effective  viscosity,  inherent  in  SHELL,  is  contin¬ 
ued  in  SHELLTC  as  is  the  Nawrocki  artificial  viscosity  scheme 
described  above.  Consideration  was  given  to  reducing  the  ef¬ 
fective  viscosity  inherent  in  SHELLTC  by  a  proper  selection 
of  the  parameters  SI,  S2  and  S3  in  hopes  of  sharpening  the 
shock  front  produced  by  a  SHELLTC  calculation.  For  this  rea¬ 
son  a  parametric  study  was  performed  using  a  1-D  planar  blast 
wave  as  a  trial  problem  (similar  to  Reference  32)  to  deter¬ 
mine  the  effect  of  variations  in  those  S  parameters.  The 
shape  of  the  shock  front  obtained  for  selected  values  of  SI, 
S2  and  S3  arc  compared  with  a  1-D  similarity  solution  for 

the  planar  blast  wave  in  Figures  A4  through  A7.  The  lcsults 

» 

of  this  study  indicated  that  the  closest  reproduction  of  the 
analytical  solution  was  obtained  with  the  following  values: 

Sj  -  -0.1 

s2  -  0.1 

Sj  «•  -0.4 

Although  these  values  worked  satisfactorily  for  problems 
where  the  deposited  energy  was  small,  difficulty  was 

1H 


S2*l.25,  S3 •-0.4 


ANALYTIC 

SOLUTION 


encountered  during  large  energy  deposition.  Excessive  cos- 
putational  time  was  required  end  in  some  instance  the  compu¬ 
tation  became  unstable.  For  this  reason,  the  three  S  param¬ 
eters  were  sot  to  zero  (eliminating,  in  effect,  the  Nawrocki 
artificial  viscosity  scheme)  during  all  calculations  per¬ 
formed  for  this  dissertation.  Hence,  the  shock  structure  ob¬ 
tained  throughout  the  study  is  that  provided  by  the  effective 
viscosity  inherent  in  SHELLTC. 

An  energy  deposition  scheme,  described  in  the  main  text, 
was  incorporated  into  SHELLTC  in  order  to  solve  the  2-D 
blast  wave  problem  of  interest.  The  code  in  its  present  con¬ 
figuration  is  suitable  for  use  with  the  CDC-3400  or  CDC-6600 
computer.  A  complete  listing  of  SHELLTC,  as  used  in  this 
work,  follows. 
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%t  r> 


LISTING  OF  SHELLTC  CODE 


PROGRAM  SHELLTCC INPUT, OUTPUT,  TA»E4, TAPE/, TAP£9,TAPE9»INPU1 
1  TAPE6«0UTPUT) 

C  *****  RE3JCED  FOR  C0C-340C  OPERATION 
CHAIN 


******  NOTE  1  HATERIAL  ONLf  (XII 
COMMON  3(19000) 

CALL  INPUT 
10  CALL  COT 
CALL  EOIT 

IF (SENSE  LIGHT  1)30,20 
20  CALL  PHI 
CALL  PH2 
GO  TO  10 
30  CALL  EXIT 
END 


SUBROJTINE  CAROS 

DIMENSION  TABLE! 1) , CARO  (7) ,LA4L: (1) 

COHHON  TABLE 

EQUIVALENCE!  TAOLE  (1 )  ,LAOLE(l) ) 

WRITE  !6, 10) 

1  REAO  (5,11) I£NO,LOC ,NUMWPC,  (CARD ! I )  ,1  =  1, NUNN PC) 
WRITE  !6, 12) IENQ,LOC,NUMNPC,  ! CARO! I)  ,1  =  1, NUMtfPC) 
00  4  I <1, NUHWPC 

J*LOC*I-t 
IF!IEND-2)2*5,2 
9  L ABLE! J) *XFIXF !CARO!  I)  ) 

GO  TO  4 

2  TABLE! J#  *CARQ!I) 

4  continue 

IF (IENO*l) 1,3,1 

3  RETURN 

C  FORHATS 

10  FORMAT !20H1SHELL  INPUT  CAROS///) 

11  FORMAT !I1,15,I1,0P7E9*4) 

12  FORMAT !  1H  14, I?,I3,1PFE14.*) 

ENO 


> on  ooo 


SU3»0JTXN£  INPUT 

C  OliENSXON 

OINtNSlOM  AIX (SbOO) . AMX (3540 ).*< 3500). 

1  UI3900) (3500) »X (601 »V< 190 ),Z( 190) » 

2  XZ(150),TAU(60).Pl(100).UL(lOi))fP<m06) , 

3  UR (190). 1*1(15). FI cFT(iOO). VAN* (100), 

4  SICC(IOO) ,GANC  (100) 


c 

O 

M 

M 

O 

N 

COMMON  Z 

•  xo 

.  x 

.7 

COMMON  IIX 

•  AM 

,  AMX 

•  AREA 

.  t 

COMMON  FS 

.1 

.11 

.19 

•  INS 

COMMON  J 

,K 

.<P 

•  L 

.M 

COMMON  MZ 

»N 

,N< 

•  NO 

.NOP 

COMMON  NR 

»p 

, PABOVE 

•  POLO 

.PIDtS 

COMMON  P<9 

»PC 

»9E2 

•  RHO 

•  RR 

COMMON  SIG 

,TAU 

, T  AUDTS 

,  TTX 

.fTY 

COMMON  U 

,U9R 

.UT 

,UT£F 

,UU 

COMMON  U  I/MAX 

.v 

•VAOOVr 

.  NOLO 

.  VEL 

COMMON  VTE 

F 

.NS 

,  NSA 

,MS9 

.NSC 

COMMON  XLF 

.XR 

»  VLN 

COMMON  YU 

.UR 

.PR 

E  Q 

J 

1  V  A 

L  E 

N  C 

E 

0E0UIVALENCE 

(2,1Z, 

P°09)  , 

(2(2) , 

CYCLE)  . 

(2(3). 

Of), 

1(2(4), PRINTS), 

(Z(5) , 

PRINTU, 

(Z (6) . 

0UMPT7)  , 

(7(7), 

CSTUP). 

2(Z(i),PIOVI, 

(2(9) , 

TM2), 

(2(19) 

.GAM)  , 

(Z(ll) 

•  gamd). 

3 ( Z (12) ,CAMX), 

(Z» 13) 

.f  TM). 

(Z ( 14) 

,FFA)  , 

(2(15) 

,FF9), 

4 ( Z ( 16) , TMOZ) , 

(2(17) 

.TNX7)  , 

(2(19) 

•  XMAX)  , 

(2(19) 

, TXMAX ) , 

3 ( Z (20) , TVHAX ) , 

(7(21) 

, AM }M)  , 

(2(22) 

, AMXM)  , 

(7(23) 

.  UNN)  , 

6(2(24) , OMIN) , 

(2(25) 

.FEF), 

(2(26) 

,OTNA), 

(2(27) 

,CVIS), 

7(Z(2«),NPR), 

(Z(29) 

,NPRI), 

(2130) 

.NC)  , 

(7(31) 

,NPC), 

9(2(32) ,NPCl, 

(7(33) 

•  XMAX)  , 

(2(34) 

, IMAXA)  , 

(2(35) 

•UMAX), 

9(2(36)  , JMAXA) , 

(Z(37) 

,  KMAX )  , 

(2(38) 

,KMAX A)  , 

(2(39) 

, NMAX) 

OEQUIVAlENCE 

(2(40) 

,N9), 

(2(41) 

»KOT)  , 

(2(42) 

, IXHAX) , 

i ( Z (43) ,NOJ) , 

( Z (44 ) 

,NOPP)  , 

(2(45) 

, NlNAX )  , 

(Z(46) 

, NJMAX) , 

2(2(47) ,11), 

(Z (40) 

•  12), 

(2(49) 

.13)  , 

(Zt50) 

•  14), 

1 (Z (51) , N1 ) « 

( Z (52) 

•  N2), 

(2(53) 

•  N3) , 

(2(54) 

»N4), 

4 (Z (55) ,N5) , 

(Z(56> 

. No) , 

(7(57) 

»N7)  , 

(2(58) 

»N9)  , 

5(2(59) ,N9), 

(2(60) 

,NU>  , 

(2(61) 

.Nil)  , 

(2(62) 

.  NRM)  , 

6(2(63),  TRA)), 

(2(64) 

.  XNRo)  , 

(2(65) 

.  SN)  , 

(Z(b6) 

, OXN)  , 

7(Z(67),RA1ER), 

(Z(66) 

,  R  Ai)r  T  > , 

(2(69) 

•  RA3L9)  , 

(2(70) 

, OTRAO) . 

9(Z(Z1) ,REZFCT) , 

(2(72) 

,PSTOP), 

(7(73) 

•  SHELL)  • 

(2(74) 

, PIOOMDI 

9(Z(75) , TOZONE) , 

(Z( 76) 

,LC<)  , 

(2(77) 

•  SR0UN9)  , 

(2(70) 

»X1) 

0E6UIVALENCC 

(7(79) 

•  X2), 

(2(00) 

.Vi), 

(2(81) 

.  Y2)  » 

1(2  (82)  .CA9LN) , 

(Z(03) 

,  V  l  SC ) , 

( Z  C  04) 

.T), 

(Z( 65) 

,  GMAX)  , 

2(2(06) , NSG1) , 

(2(87) 

,wsr*x) , 

(Z(90) 

•  GMA'JR)  , 

(7(69) 

•GMAXP), 

3 (Z (90) , S 1  > , 

(2(9i) 

»S2) , 

(Z (92) 

•  S3), 

(Z( 93) 

,S4)  , 

4(2(94) , S5) * 

(Z(95) 

* S6) , 

(M96) 

»S7) , 

(2(97) 

,S6), 

5 (Z (99) ,S9), 

(2(99) 

•  S10)  , 

6(7(127) ,OX> , 

(7(126) ,  )Y1) , 

(2(129), OV) , 

7(7(130), NFITB), 

(2(1*  l) , NFI  TT) , 

(7(132), NF1TR) , 

9(2(133), NPAR9), 

(7(134) ,NPART) , 

(7(1 J5) ,NPA9R) 

EQUIVALENCE  (P.INi) 

EJUIVAIPMCE(P(2J0 )  .GAMC) «  (P(bD1)  ,VANC) 
EQUIVALENCE  (U»,UL  .FLS)  T ) ,  (*»R,PL,snC) 
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£lUTV4lfNCt  12(120)  ,OETVEL)  ,  (2(  1221  ,EXEN) 

UU I((UNC*  (21 12 J)  ,EXRM0)  ,  (7  41  >4 > » THICK) 

SENSE  LIGHT  1 
00  100  I  *1 » 14999 
S00  Z  ( 1 1 *0 • 

RE  40  (5,8304) IWS 

WRITE  (6,6904) IMS 
6  C4LL  3AR0S 

RE40  T4PE 

STORl  *  2 (?3$) 

ST  OR?  *  2(236) 

1000  HZ*150 
IMS*0 
REWIND  7 

1003  R6WIN3  4 

1004  RE 4D( 4 ) PR( 1) ,PR(2) ,N3 

WRITE  (to, MOO)  PR(t)  ,PR  (2)  ,N3 
0000  F0RH4T  ( 10X, 16HFIRST  RECORD  IS  ,2E12.4,I6,/) 

NR*N3f 5 

1006  IF (PR(1) -555.0) 1010, 1016, 1010 

1010  IF(PR(1) .EQ.666.) 1012,1013 

1012  00  1014  1*1,5 

1014  BACKSPACE  4 

IF  (G4H0)  1023,1023,1015 

1015  00  1017  I  *  1,4 
1117  BACKSPACE  7 

GO  TO  1023 

1013  IWS*IWS+1 

WRITE  (6,0901)  IWS 
0001  F0RM4T  ( 10X.6HIWS  *  ,12,/) 

1011  IF(XN3DF(IWS,3) 19902,9902,1003 

1016  WRITE  (6,0801)  2(235),  Z(236),  PR(2),  PROS 

8001  F0RH4T  ( 10X ,9H2 (235)  *  ,E14.6,12H  Z ( 236 >  *  ,E14.6, 
1  ItH  PR(2)  *  , E14.6, 10H  PROS  *  ,E14.6,/) 

IF  (2(236>-PR(2))  1025,1025,1019 

1019  IF  (GAMP)  1020,1020,1021 

1020  RE4JC4)  OUM 
RE40 (4 )  OLM 
RE  40 ( ♦ >  DUO 
RE 40 (4)  OUW 
GO  TO  1004 

1021  WRITE  (7)  PR(1),PR(2),N3 
RE40(4) (2(1), 1*1, H2) 

RE40(4) (U( I) ,V(I5 ,AMX(I),AIX(I),P(I) ,I*1,KMAXA) 
R£A0(4)X(tf) ,  (X(I) ,TAU(I),I*1,I8AX) 

RE4D(4)  ( V (1*1) ,1*1, UMAX 4) 

WRITE!  7) (2(1), 1*1, HZ) 

WRITE! 7) (U(t),tf(X) ,AHX( I) ,AIX(I),P(I) ,I=1,KMAXA) 
WRITE(7)  X(0)  ,(X(I)  , TAU ( I)  ,1s  1, IHAX  ) 

WRITE! 7) (V(I-1),I*1,JNAXI) 

WRITE  (6,8805)  PR(2) 

2(235)  *  STORl 
2(236)  *  ST0R2 
GO  TO  1004 
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1"?S  IF  (G»MO>  1321,1023,102? 

1  ’2  ^  ?  I  T  e  (7)  Pm>,PR<2),N3 
1023  Rc  413(41  (Z(t),Mi4Z) 

WRITE  (b,M02>  (Z(I>,I  =  1,3) 

BfiO?  F ORMA T  ( 1 J  X  »  25WTH5  FIRST  1  L  VALJFS  A»r  ,3E12.6,/> 
IF  (A  JSF(P.?00-Z(235>  011  1024*  1024, 3901 

U  24  *l*.)(«)  <U(I>,V(I)  ,A!«(I),MX(I),P(I)  ,  Isl*  KHAXA) 
READ (4)  X  HI  ,  C  X  ( I )  ,T  AU(  II  *  1  =  1,  I  3AXI 
REAJ(4> ( Y (  1-1) , I=1,JMAXA) 

10  *4  *EAim)FS,  ro,rr 

IF  (GAKO )  If)  10, 1039*1031 
1011  WRITE(7>  (Z<n,I  =  l,MZ) 

WRITE (7) (U(I) ,V(I) »AHX(I) ,AIX < I) ,P (I) , 1*1 ,KWAX4l 
MRTTF (7) X  <0> , IX(I> *  TAUi  I)  ,1*1.  IMAX  > 

WRITE ( 7 )  (YU-1)  ,  I  =  t ,  JM  A  X  A  ) 

WRITf  (7)  FS,  >C,RR 
WRITE  (6,4  1)5)  PR  (2) 

1030  WRITc  (b , 1103)FS, <C,RR 

0^03  FORMAT  ( 1 0  X , 1 OHFS ,  RC  ANf3  RP  A  Rfc  ,3C12.6,/> 

^11  CONTINUE 

1  n  16  IF(FS-l>56.  )) 9104, 1040, lull 
1  !*  TF(30-b>b. 0)9)06, 1040, 9405 
1040  GO  TO  lJ 

*  »  *  *  jr  RFA)  TAPC  ********************************* 

r> 

* 1  A 9  IN  ^FMAININS  IUPJ!  CAROS 

10  CONTINUE 
CALL  CAROS 
40  30  <,9  K  =  1,<-1AXA 

♦6  P(K)=9.J 
Ts T-JTN A 
:tc=mc-i 

CYCLr  =  NO 
N‘JC  =  M-»r-l 
UUMAX=G . 0 
JX  =  MZ-<« 

i?.  no  »o  i  =  i,  )x,4 

K=  I  ♦  3 

10  65  1=  I  ,< 

I F  (  Z  ( J  )  )  7  ,  6  5  ,  7  j 

65  CONUWUF 
GO  TJ  M 
70  CONTINUE. 

WRITr  (6,1111)  T,(7(l)  *  L  =  I ,  <) 

WUTE  (0,111?)  I,  <Z(L>  ,!_-I,K') 

10  CONTINUE 
GO  TO  too  no 

ERRO? 

3301  NK=t'J?3 

GO  TO  9999 
)99?  N  <  =  l  0  1 1 

GO  TO  4494 

>> 

U 

9  • 0 4  NK= 1 0  36 

GO  TO  9999 
UJ5  N <  =  1 0  3 F 
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00  TO  9991 
9906  MK*2000 
999°  NR=1 

CALL  ERRER(NRyNK) 
C 

10000  RETURN 


FORMATS 

4000  FORMAT (7EU*3yI2) 

8405  FORMAT  (7H0CYCLE  ,F5.0,19H  COPIFD  ONTO  TAPE  7  //> 
80040FORMAT (I1,71H 

1  ) 

4111  FORMAT  (I4,4(4X,lPElo.fl)) 

4112  F0RMAT<I4, 40251 
END 


SUmOJTINt  COT 

01  4  r  T4  S  ION 

DIMENSION  AIX(35O0I .ANX (35t)U) ,P(35  )0I  , 

1  U(3500> ,\M  3900) , X<od> , Y( IOC ) ,7(13  0) » 

2  12(150) » T  AU (6  J ) »PL(l00)»JL(i00)»P?(i00)f 

3  UR (10  0)  ,IM1  (15)  ,FLEFT(  10  D) ,  YAMCdlO)  y 

4  S ICC ( 1 0 0 ) *  j AMC  (10  0) 


c 

0 

M 

M 

J 

COMMON 

z 

y  X  0 

,  x 

,V 

COMMON 

AIX 

y  AM 

,  AMX 

yAREA 

COMMON 

FS 

»  I 

,11 

y  I R 

COMMON 

J 

,K 

,<P 

y  4 

COMMON 

MZ 

,  N 

y  NK 

y  NO 

COMMON 

NR 

tP 

yPABQV^ 

,P3LO 

COMMON 

PRR 

,  RC 

tREZ 

yrfHO 

COMMON 

SIG 

,  T  AU 

, TAUOTS 

» T TX 

COMMON 

U 

,URR 

,UT 

yUTEF 

COMMON 

UrfMAX 

,v 

, VAB0Vr 

,  V  1LO 

COMMON 

VTEF 

yWS 

,  NSA 

y  NS  ) 

COMMON 

xlf 

» X  R 

y  YLM 

COMMON 

YJ 

,UR 

,  PR 

i 

0 

0 

I  V  A 

L  E 

N  C 

OEQUIVALSNCE 

(Z,IZ, 

PR04)  y 

(7(2) , CYCLE) y 

1(7(4) , PRINTS) 

» 

(7(5)  , 

PPINTL)  ♦ 

C  2  (6)  y 

DUM°T  7) , 

2 ( Z ( 4) yPIOY) ♦ 

(7(9)  y 

TMZ)  , 

(Z(10) 

yGAM) y 

3(7(12) yGAMX) , 

(7(13) 

» FTH)  , 

( Z ( 14) 

,FF«)  , 

4(2(16) ,  TM07)  , 

(7(17) 

y  TMX7)  y 

( Z  ( 1 9) 

y  XMAX)  , 

5(2(20) ,TYMAX) 

y 

(Z(21 ) 

y  A MOM)  y 

(Z (22) 

y  AMXM)  y 

6  (Z (24) ,OMIN) , 

(7(25) 

,FEF>, 

(Z ( 26) 

yOTNA)  , 

7(2(28) , NPR) , 

(7(29)  ,MPRI)  , 

( Z (30) 

,NC), 

4 ( Z ( 32)  y  NRC)  y 

(7(33) 

y  T  MAX )  y 

(2(34) 

ylMAXA) y 

9(7(36) , JMAXA) 

♦ 

(7(37) 

y  KMAX)  , 

(2(38) 

y  KMAX  A)  y 

OEQUIVALENCE 

(7(40)  y  NO)  y 

(2(41) 

,KOT)  , 

1(2(43)  y  N  0 0 )  y 

( Z  ( 44 ) 

y  NOPR)  , 

(7(45) 

y NIMAX) y 

2 ( Z (47) ,11) y 

( Z  (  48 ) 

,12), 

(2(49) 

y  13)  , 

N 


*E 

,  IMS 
*  M 

y  NOP 
yFIOTS 
t  RR 
yTTV 
yUU 
y  VFL 
y  NSC 


(7(3) yJT) y 
(Z(7) yCSTOP) y 
(7 (U)  yGAMO)  y 
(7(191  ,FFB)  y 
(7(1  *)  yTXMAXly 
(7(23), ONN), 
(7(27) , CV IS) , 
(7(31) yNPC) y 
(7(35) yJMAX) , 
(7(39) yNMAX) 
(7(42)  yUNAX), 
(7(46) y NJNAX ) , 
(7(50) fl4) , 
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1(2(111, MU, 

(2(421 ,411, 

12(911 

#411, 

(2(941 

|IM» 

9(2(99) tN9l, 

11(941,1141, 

(2(921 

♦  Ml)  , 

(2(94) 

•Ml# 

fit  (Ml  »N4t  * 

(2(441,11111, 

(2(411 

•Mill, 

(2(41) 

- - 

|RV>I| 

tm»n,v»A0t, 

(2(49),iN*l, 

(2(441 

,|M)  , 

(2(44) 

,4141, 

2(2(021,  MAOM), 

(2(441,44)1  fl, 

(2(49) 
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♦  ID, 
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(2(49)  ,13)  ♦ 

(2(50) 

y  14)  y 

3(2(51) 

♦  Nl), 

(Z (52) 

♦  N2), 

(2(53)  ,  N3) « 

(2(54) 

f  N4)  * 

4(2(55) 

t  N5)  t 

(Z (56) 

♦  N6), 

(2(57)  ,N7>, 

(Z( 58) 

,N8)  , 

5(2  (59) 

♦  N9) , 

(Z (60) 

«N13)  , 

(7(61)  y  Nil )  , 

(Z( 62) 

y  NRH) y 

6(2(63) 

,  TQAO)  , 

(Z (64) 

,XN*G>  , 

(2(65)  y  SN)  y 

(Z( 66) 

y  OXN) y 

7(2(67) 

y RAOEP) , 

(Z (68) 

♦  PAOET)  , 

(2(69) y RAOEB) . 

f  7 ( 70) 

yOTRAD)  y 

6 (2 (71) 

,  REZFCT) , 

( Z ( 72 1 

,RSTOP) , 

(2(73) y  SMELL) y 

(Z( 74) 

y  BIOUNO)  y 

9(Z (75) 

y  TOZONE) , 

(Z (76) 

,eco , 

(Z (77) ySBOUNO)  y 

(Z( 78) 

y  X 1 ) 

OEQUIV ALENCE 

( Z  ( 79) 

,X2), 

(Z (80 )  y  Yl)  y 

(Z( 81) 

t  Y2)  y 

1 (Z (82) 

,  CA3LN)  , 

( Z  (  8  3 ) 

,  V I  SC  )  , 

(Z (54)  y  T)  y 

( Z( 85) 

y  GHAX)  y 

2(2(86) 

,  WSGQ)  , 

( Z ( 87) 

,  WSGX)  , 

(Z (88) yGHAOR)  , 

( Z ( 89) 

yGMAXP) y  | 

3(2(90) 

.SI), 

( Z ( 91 ) 

♦  52) , 

( Z  (92 )  ,  S3)  y 

(Z( 93) 

*S4)  , 

4 (Z (94) 

♦  S5 ) , 

(Z (95) 

♦  56), 

(Z(96)  yS7)  , 

(ZC  97) 

yS8)  y 

5 (Z (98) 

♦  S9)  , 

( Z ( 99) 

,S10)  , 

6 (Z ( 127 

)  ,  OX)  , 

( Z ( 128 ) , OY1 ) , 

(Z (129) yOY)  » 

7 (Z (130 

)  ,NFIT3) , 

( Z ( 131 ) , NFI TT ) , 

(Z (132) ,NFITR) , 

3 ( Z( 133 

)  , NPARB) , 

( Z ( 134 ) , NPART) , 

( Z  ( 1 35 )  ,NPAH) 

EQUIVALENCE  (P,IH1) 

EQUIVALENCES  20  3)  yGAMC)  ,  S40  1)  ,Y  AMC) 
EQUIVALENCE  (URyUL  , FLEET) ,  (PR,PL,SI&C) 

EQUIVALENCE  ( Z ( 120 ) , GET VCL) ,  (Z ( 122) ,EXEN> 
EQUIVALENCE  ( Z ( 123 > , E X0HO) ,  ( Z  ( 1  24)  ,  THI CK) 

******  NOTE  1  MATERIAL  ONLY  ( X ) >  ♦♦******♦**♦ 


i 


JU=1 • E+ 15 
UT=Q. 0 
ftOOO  V  E  I.  =  1  •  0 

fiOOi  IF(GAM)90QQ, 3301, 9000 
4  0  01!  RO-1.3 
RR  =  RC 

,0  TO  3304 
?  d  RC=0X/2.0 

RR= (X { 1 ) *X ( 2 ) ) / 2. J 
>  JU  4  <-2 

00  3302  J  =  1 , JMAX 
PL  ( J)  =PCK) 

UL  ( J>  =  0 . 0 
QL  < J) s  0  •  0 
TH2  K  =  K  +  IMA X 

QO  3360  IS1 » IMAX 
K=  I  +  l 

l  N0T=IMAX 
ft  K=m*NOT 

IFCCVID  7002,7003,7003 
TOO  5  VQLO=t  ,'J 
P9L0=p (K) 

GO  TO  7104 
TOO?  VfJLO=V(K) 
f’3LOsO  •  0 

700'-'  T AUOTS=TAUCI)*DT 
Q1- O.u 
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3  NO  "2 

4  00  33  4  8  J=NO,JMAX 
UQ=U(K) 

V Q=V<<> 

A  =  0. 

R=Q. 

PI3TS=1.Q/(PI0Y*0T*0Y) 

IF(GAM>9002  9004,9002 
900?  PIDTS=2.0*PIOTS 
9004  N-K+IMAX 

3309  IF(AHX(K))9902, 3340, 3306 
33QC  IF(IMAX-I)9903, 3311,3310 

3310  IF(AMX(K+1))9904, 3312, 3314 

3311  PR9=P(K) 

09=0.0 

3307  ETH  =  ETH-P«9*U(K»/PI')TS»Pn 
60  TO  3313 

3312  P9R=0.0 
09=0.0 

3313  U99=RC*U(K) 

GO  TO  3315 

3314  PR9=(P(K>*P(K*l)>/2.0 

3315  U99=  (  J  <K)*90U(K4l)*RR>  /2.0 

9HO  =  0 • 5* ( A  MX (K) /T AU l I > ♦ AMX <K*1 > / T AU ( I ♦ 1> > /DY 
0U9=U(K)-U(K+1) 

IF(OJ9)2003, 10001:2005 

2003  IF(S3) 2004,10031,2004 
10001  UR=G.U 

GO  TO  331b 

2004  UTEF  =  ABSF<0.5*(U(KM-U(K  +  1)  ») 
3R=-S3*9H0*UTEF*0UR 

GO  TO  3316 

2005  IF(S3) 2007,2006,2007 

2006  UTEF=  0  • 

GO  TO  2003 

200  7  UTEF=ABSF(0.5*(U(K)*U(K*1H) 

200  8  CS=S09TF  (1.4*PRR/RH0) 

QR  =  R90*0URMS1*CS*S2*S2*0U9+S3*'JTEF» 

3316  IF(JMAX-J)9905, 3318, 3320 
3318  P ABOVE ” P ( K > 

QT=0. 0 
A=  1 . 

3  319  ETH=ETH-PA90VE*V(K)/2.0*TAJDTS 
GO  TO  3323 

3320  IF (A MX (N) ) 9906, 3322,3324 

3322  PA  ROVE  =  0  •  0 
QT  =  U  •  0 

3323  V A90VE=V (K) 

GO  TO  3328 

3324  P A  BOVE  =  <P(<)+P(N))/2.0 
<HO=0.5*(ArtX(K)fAhX(N) ) /TAj<I> /OY 
OVZ  =  V(K)-V(N) 

IF(OVZ»2009,10003,2011 

2009  IF(S3) 2010,10033,2010 
10003  QT=0 . 0 

GO  TO  7001 

2010  VTEF  =  ABSF(0.5MV(K)*V<N)  )  I 
QT=-S3*9H0*VT£F*0VZ 
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GO  TO  7001 

2011  IF(S3>2016, 2012, 2016 

2012  VT£F*0. 

GO  TO  2014 

2016  VTEF*ABSFO,5MV(K>*V4Nn> 

2014  CS*SQRTF<t.4*PAs}JVE/RH0) 

QT*RH3*DVZ*<S1*C$*S7*S2*0VZ*S3*VTEF) 

7C01  IF (NO* J)  3325,7005,9905 

7005  IF(CVIS)  7000, 7006. T006 
7000  P3L0=P(K) 

ETH=ETH*P3LO*V<t<l/2.QM AUJTS 

7006  3=1 

3325  V ABOVE* (V(K)*V(N))/2.Q 
3328  IF(VEL)  9907,6016,3400 
3410  G*6.3567£*08 

G=7(108)*G*G/<  <G*Y  <J)-DY/2.)  **2> 

IF(AfiJ)  9,9,10 

9  WS' (P3L0-P4Q0VEO0-1T)  *  T  AIJJTS/AMX  t  K) -6*91 
GO  TO  11 

10  WS* (P3LO-P ABOVE* J3-QT) *T AU1TS/ AMX ( K) -0 .5*6*0T 

11  V<K)=V(K)*WS 

IFCA8SF  <V(K) )-l.E-0l)  3401,3401,3402 

3401  V ( K) *0  •  0 

3402  U<K)=U(K>*  <PL(J)-PRR*OL  (J)-UR)  7C  AMX(K)  )  »RC/PnT<5»2,  O 
IF ( A85F (U(<) ) -l.E-01)  3403,3403,6016 

3403  U (K) *0 • 0 
6016  CONTINUE 

IF(VEL)9917, 2001, 2000 

2000  VQ*(Va*V(K) >/2.0 

ua=<ua*U<K> ) /2, 0 

HS*(.5*P(K>  *(V9L0-VA9OVE) *QB* ( V9L0- VQ) *QT* (VQ-V ABOVE ) ) *T A JOTS 
WT*<.3*P<<>  *  (UL  (J)-URR)  *QL(J>*  ( JL<  J> - 2C*UQ> *QR*  (RC*UQ-URR)  )  /PIDTS* 
12.0 

GO  TO  2002 

2001  WS=P(K) * (V9L0-VA90VE) *T  AUOTS/2.9 
WT*P(<)*(UL(J)-U9R)  /PIOTS 

2002  RHO=WS*WT 

3332  WSX=AIX(K)  *c'MO/AK  ;*> 

tooo  iF(wsx) ioiijiooi, : o o i 

1001  A IX (K) =WSX 
GO  TO  3342 
1011  UT*1, 0 

PRINT  2013 

2013  FORMAT  (4X,  INI , 3X ,  1H.J,5X  ,  3HMSX  ,  10  X,  3HAIX ,  1  OX,  3HAMX ,  10  X,  3H  P,9X,24W 
lT,llX,2HWS,HX,2HOT,HX,3HVfL) 

PRINT  2015,I,J,WSX,AIX(K) ,AMX (<) ,P  (K) »WT,WS»0T ,VCL 

2015  FORMAT (X, 214, X, 7 (E 12, 4, X) fF4.1 ,//) 

WSA*2.Q*AIX (K)/3,0*9T/( AIX(K) -USX) 

1013  IF(WSA-UU) 1014,1001,1001 

1014  UU=WSA 
ISAVE=I 
JSAVE* J 
GO  TO  1001 

3340  PRRsO.O 
QR*0 • 0 
QT*0. 0 

URR*U ( K*  1 ) *RR 
PA30VE*0 • 0 


VA80V£*V(N> 

3342  V9LO=VA80VE 
PL  ( J) =  PRR 
UL(JI*URR 
QL  ( J)  *0R 
Q9=QT 
K=N 

3348  PBLOs9 ABOVE 
3155  RC  =  RR 

IF (GAM) 3360*9007(3360 
9007  RRs(X(I*l)*X(I*2)  1/2.0 

3360  CONTINUE 

3361  IF(VEL)9911, 10030, 3363 
3363  VEL=0.0 

GO  TO  8001 

C  ERROR 

9902  N<=  330  5 

GO  TO  9999 

9903  N«=3306 

GO  TO  9999 

9904  N< -331 0 

GO  TO  9999 

9905  N<=3316 

GO  TO  9999 

9906  N<=332G 

GO  TO  9999 

9907  NK-332 8 

GO  TO  9999 
9911  NK*33o 1 
9999  NR23 

CALL  £PRER(NR,NK) 

10000  IF(SN) 6201,7031,6201 
7031  If(UT) 7020,6201,7010 
7010  UT=-1.0 
OT=-OT 
GO  TO  8  0  0  (J 
7025  UT  =  0 • 3 

PRINT  2060,ISAV£,  JSAVE,UU 

2060  FORMAT ( 8H  CELL  I=,I3,3H  J=,I3,25H  FINALLY  SETS  TIME  STEP  >,£12.4) 
OT2UU 
DTNA=DT 
GO  TO  8000 
6201  RETURN 
END 


SU9R0JTINE  EOIT 

DIMENSION 

DIMENSION  AIX (3500) , AMX 13500 ) ,»( 3500) , 

1  U (3500) ,V( 3500) ,X (60) , Y ( 10b ) , 71 15 0) , 

2  17(150) ,TAU(60),PL( 100) ,UL( 100) ,PR( 100)  , 

3  UR (100) ,IM1(15) ,FLEFT ( 10 0 ) , Y AMC ( 1 00) , 

4  SIGC(1Q0),GAMC(100I 
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ooc*  ce  i  e  c 
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0 

M 

COMMON 
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AIX 

,  AM 

COMMON 

FS 

.1 

COMMON 
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*K 

COMMON 

HZ 

*  N 
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NR 

*P 

COMMON 

PR  R 
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COMMON 

SI  5 

,  TAU 

COMMON 

U 

,URR 

COMMON 

UNMAX 

♦  V 

COMMON 

VTEF 

♦  MS 

COMMON 

XLF 

♦  XR 

COMMON 

YU 

•  UR 

E  9 

u 

I  V  A 

((EQUIVALENCE 
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PP03)  , 
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PRINTS), 
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PPINTL)  , 

2 (Z l A)  , 

PIOY)  , 

(Z (9) , 

TMZ), 

3 (Z ( 1?) 

, CAMX)  , 

f  Z  ( 1 3) 

♦  f  TM)  , 

4 ( Z (16) 
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( Z ( 17) 
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•  OMIN)  , 
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.ID. 
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*N2), 
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, T RAO)  , 
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(Z (65) 
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,  REZFCT) , 
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9(2(75) 
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(2(134), NPART), 

EQUIVALENCE 

(P,IM1) 

t  JUI VALENCE ( P( 200) ,GAHC) , (P(40d) 

EQUIVALENCE 
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♦  M 

,  N< 

,  NO 
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,PA0QVE 
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•PI3TS 

♦  REZ 

,RHO 

♦  RR 

, TAUOTS 

,  TTX 

♦  tty 

♦  or 

,  UTEP 

,UU 

♦ VA80VE 

•  V3LQ 

•  VEL 

♦  MSA 

,NS9 

,NSC 

♦  YLM 

♦  PR 

L  E 

N  C 
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CYCLE), 

(2(3), 

OT)  , 

(Z (6) , 
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(Z( 7) , 
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(Z(10) 

,GAM)  , 

(Z(U) 
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(2(14) 

,FF  A), 

(2(15) 

,FFfl)  , 

(2(14) 

, XMAX )  , 

(2(19) 

, TXMAX )  , 
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,  ANXM)  , 

( Z(  23) 
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(2(26) 

,OTNA), 

(2(27) 

•  CVIS), 

(Z  (30) 

*NC)  » 

(2(31) 

,  NPC)  , 

(Z (34) 

•  IMAXA)  , 

(2(3  5) 

,  JMAX)  , 

(Z( 38) 

•KMAXA), 

(Z( 39) 

,NMAX) 

( Z (41 ) 

,KHT)  , 

(Z(42) 

, IXHAX), 

(2(45) 

,NIMAX)  , 

( Z( 46) 

,N JMAX)  , 

(2(49) 

•  13)  , 

(2(50) 

.14), 

(2(5  3) 

,N3>  , 

(2(54) 

•  N4  )  , 

(2(57) 

,N7)  , 

(2(56) 

»N4)  , 

(2(61) 

•  Nil)  , 

( Z ( 62) 

,NRM)  , 

(2(65) 

•  SN)  , 

(2(66) 

,OXN)  , 

(2(69) 

, RAJkd)  , 

(Z( 70) 

, OTRAC)  , 

(Z (73) 

•SMELL)* 

(2(74) 

•B90UNC) 

(2(77) 

, S90UN9)  , 

(2(78) 

,X1) 

(2(40) 

*Yl), 

(Z(61) 

•  V2), 

(Z (64) 

*  T) » 

(2(65) 

•  GMAX)  , 

(2(66) 

•  GMAOR)  , 

(Z(69) 

, GMAXR) , 

(2(92) 

•  S3)  , 

( Z 1 93) 

,S4)  , 

(Z (96) 

»S7)  , 

(Z( 97) 

»S4), 

(Z (129) ,OY) , 

(2(132), NFITR), 

(Z(t  35) ,NPARR) 

YAMC) 

(PR,PL,SIGC) 


EQUIVALENCE  ( Z (120 ) ,0E TVEL) , 
EQUIVALENCE  (Z  (123)  ,EX«M0) . 


(11122) fCXEN) 
(Z(l?4),  THICK) 


0 
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192  IF  (SENSE  SWITCH  4)122,104 
104  IF (SENSE  LIGHT  3)106,108 
108  IF  (CYCLE  -  CSTOPI  112,122,122 
112  IP (M03F (CYCLE, OUMPT7)) 114,1,114 
114  IF  (HOOF  (CYCLE, PRINTL))120, 126, 120 
120  IF (MO)F (CYCLE, PRINTS) ) 140, 60 00, 140 
140  IF(SENSE  LIGHT  1)142,144 

142  REMINJ  4 
IF  (GAMO)  9,9,10 

10  REWIN)  7 
9  SENSE  LIGHT  1 

IF  (GAHX )  144,144,143 

143  CALL  STEADY 

144  GO  TO  10UO0 

OUMP  ON  TAPE  7 

122  SENSE  LIGHT  1 
PRINTL*CYCLC 
t  IF  OJMPT7I  39,2,2 

2  IF  (GAMO)  3,3,233 

203  BACKSPACE  7 

204  WS  -  555.J 
WRITE  (7)  WS, CYCLE, N3 

220  WRITE  (7)  ( 2 (L ) , L= 1 , MZ) 

206  WRITE  (  7) (U(K),V(K),AHX(K),AIX(<) ,P(K),K=ltKMAXA) 

207  WRITE  (  7)X(0>,  <  X  ( <) ,  T  AU  ( «) ,  K*  1,  I M  AX ) 

221  WRITE  (  7)  (Y(K-l)  ,K*1,JMAXA) 

222  WS  =  666.0 
WRITE  (7)  HS, WS, WS 
GO  TO  8 

3  BACKSPACE  4 

NOTE.AOOITIONAL  DATA  ON  TAPE  7 

4  WS=555 • H 

WRITE  (  4) WS, CYCLE, N3 

20  WRITE  (  4)  (  2  (L  )  » L  =  1 ,MZ) 

6  WRITE  (  4)  (U«)  ,V(K),AHX(K),AIX(K)  ,P(K),K-1,KNAXA) 

7  WRITE  (  4 ) X ( 0) , (X(K) ,TAU(K),KS1,IMAX) 

21  WRITE  (  4)  (Y  (K-t)  ,K=1,JMAXA) 

22  W$S66B • 

WRITE  (  4)WS,WS,WS 

ft  IF  (SENSE  SWITCH  2)  5,24 

5  REWIN3  4 
PRINT  8121, CYCLE 

ft  121  FORMAT ( 7H  CYCLE  ,F5.0,18H  JFGINS  NEW  TAPE  4) 

PAUSE  10 
GO  TO  4 

24  WRITE  (6  »  ftl?0) NC 
30  GO  TO  114 


106  SENSE  LIGHT  3 
126  SENSE  LIGHT  4 

IF  (SENSE  SWITCH  l)  11,6000 


— 


11 

6000 

6012 


6017 


6019 

6020 


6026 


6090 

» 

C 

r,**** 

5000 
5  001 
500i* 


5012 
5014 
5016 
5019 
5  016 
5046 

5350 

116 

***** 


C 

9901 


*.  r 

. . 


CALL  DISPLA  C7HCYCLE  *  ,NC) 

00  6012  1-1, 12 

PR( I) -0 • 0 

00  6026  K=2  *  <MAX 

WS9=(J(K)  ♦•?♦¥(<) **2)/2.0 

PR(1)=0.0 

PR (2) *0 • 0 

PR<4)=0.0 

IF (AMX( KM  9917 ,6028, 602  0 
PR(5)*PR(5)*AIX(<)*ANX(K) 
PR(6)=PR(6)*MS3*AHX(K) 
PR(«)sPR<8)  * ANX(K) 

CONTINUE 

PR ( 3) SPR ( 1 )  ♦PR  ( 21 
PR(7)spR(5)+PR(6) 

XNRG=PR(7) 

PR(9)=PR(1)  +  PR ( 3 ) 

PR(IQ)  =  PR(2> *PR (6) 

PR  ( 11)  =PR  ( 3  )  *-PR  (  7  ) 

PR(  12) =PR(4) +PR ( 6 ) 

WSA  =  (* T  H-PR  C  11 )  l/FH 

PR(18)  =  (WSA-ONN)  /FLOATF  (NPC) 

ECK=PR(18) 

3NN:  WSA 


NPC=0 

WRITE  (6 , 81 16)  P R09, NC, T , DTNA ,  TRAO,  0T  RflTO ,  NR,N1, N2 ,  N3  ,  N4 
WRITE  (6,8117)  (PR(I)  ,1*1,8) 

WRITE  (b,  811  6)  ( ( I  >  ,1  =  9,12) 

WRITE  (6,8119)UVHAX,CTH,EC< 

WRITE  (6,9040) N10.N11, 11,12,13,14 
IF ( SENSE  LIGHT  4)5000,136 

END  OF  S  °  SU9R0UTINF  ***************************** 


SU3R3JTINE  L  p  *************************************** 

CONTINUE 

WRITE  (6,8116)PR0  3,NC,T,DTNA,TRA3,OTRA1,NR,N1,N?,N3,N4 

JO  5050  I-1,IMAX 

SFNSE  LIGHT  4 

J= JMAX+1 

K  =  JMAX*IMAX*I«-1 

90  5046  L=i , JHAX 

J  =  J-l 

K^K-INAX 

IF  ( AfiX  (K) )  99 17, 5046,5014 
IF ( SENSE  LIGHT  4)5016,5019 
WRITE  (6,9135) I , X  ( I)  ,9X 
WS=AMX(K)/(TAU(I)*ny) 

WRITE(6,8109)J,U(<)  ,V(K)  ,P(K)  ,  AHXCO  ,  WS,  A  IX  (K> ,  Y  ( J) 
CONTINUE 

IF  (CYCLE  -  CSTOP)  136,5050,13b 
CONTINUE 

IF  (A9SF(ECK)-OMIN) 140, 140,9905 

ENO  OF  L  P  SJ9R0UTTNE  ***************************** 


ERROR 

NK-110 
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1 


O  O  O  -1  o  »- 


GO  TO  9999 

3  ENERGY  CHECK 

9905  NK=136 

GO  TO  9999 

C  NEGATIVE  NASS 

9917  NK=6015 

GO  TO  9991 

9920  NK=9Q4 

GO  TO  9999 

9921  NK-912 

GO  TO  999) 

992?  NK=913 

GO  TO  9999 

9923  N<=922 

GO  TO  9999 

9924  NK=925 
9999  NR=6 

CALL  ERRER(NR,N<) 

0  00  0  RETURN 

FORMATS 

8108  FORMAT (14, IX, 1P7E16.6) 

81160FORMAT ( 3H1PR09LEM6X , 5HC YCLE9X  ,  4HTI ME 13X , 2HDT 13X,  4MTRAD11X , 5M0TP*D1 
12X,2HNR6X,?HN14X»2HN24X , 2HN34X »?HN4/(F9«3,I10,1X,  1P4E16* 7,I10,?X,4 
216)) 

31170FORMAT(1HO//17X2HA'I16X,  2HAK14X  ,  5HAIf  AK15X , 2HAM/4H  DOT3X,  1P4E18.  7/3 
1H  X4X,4E13.7) 

81180FOR.1AT  (12X,  13H-- . . 5X, 13H . . . . 5X, 13M - - 5 

1 X  ,  13H - /7H  T0TALS1P4E18.7) 

31190FORMAT (2H0  //16X,/MNAX  VEL17X ,  3HTHE12X ,9HREL  ERROR/6X, 1P6E 18. 7///I 
8120  FORMAT (1HQ//21H  TAPE  7  HUMP  ON  ? YCLEI5////I 

813^ OFORMAT (1 H  ///4H  I  =I3,6X,6HX(I>  =F12.3,3X,6H  OX  *F12.3//2M  JlOX, 
11HX15X,1HY14X,3HF/A13X,  3  MANX  1  3X  ,  3HRH01 3X  ,3HAIX1*«X,1HY/) 

9040  FORMAT ( 1H  /  616) 

ENO 


SUQROJTINE  POWER ( X , XX, N ) 
XX^LOGF ( A9SF ( X ) ) /2. 302585393 
N  =  XX 

IF(XX)  1,2,2 

1  N=N-l 

2  XX=X/10.**N 
RETURN 

ENO 


SU9R0JT I NE  PH2 

DIMENSION 

DIMENSION  A IX (3500) ,AMX (3500)  ,P( 3500) , 

1  U  ( 350  0 )  ,V(350(J)  ,  X  ( 60 )  ,Y(10U),Z<150)  , 
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IM  t«M#«0.4 
A<«*j«0.0 

HU1*M 
10/  90 
114 

vu*A.e 

fVI.I 

m  if ijoii- ji/ti./ii./i/ 

?ti  va*i.e 
40  10  ?M 

/ 1/  irt«’U<ll»?Hi?lltm 
?l*  If 

m  tf**tosc«vtu 
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60  TO  212 

215  !FMMX(K>  >2U5,2J5,? 'H 
215  VMOVSO.1 
60  10  212 
201  VA40¥£*V4<> 

CO  TO  212 

204  VA40VE«(V<<> ♦V(U>/2.0 
212  CONTINUE 

rs«o*o 

<•04  IFfIN4X"I>4l2»4l2,4)5 
405  IFUHXI*M>>4tl,4tt,4U4 
404  IF<ANX(i(>)*lO, 410,437 

410  U9*»JCKH> 

CO  TO  404 

411  IF  ( AHX  (K>  >‘♦33,413,416 

403  U9«*').U 
CO  TO  404 

412  FS*l.O 
40b  UR4*U<K) 

CO  TO  404 

402  tH9s(J(K)  »ii(K«m/?t0 

404  CONTI MUC 

101  IF1V430VEI 301,3 14,312 

302  iF(AHX<<>  I  >901,  314,4000 

4400  IF(J-l»q90l, 301, 1401 

4401  4P«K-IMAX 
IF(AHX(KP)  »  >000,303,303 

303  H«< 

JJsJ 

GO  TO  307 
334  A'«PV*0,0 
3J4  A1UT*Q.l 
AHVTsJ  •  0 
OEllT’O.O 
CO  TO  501 

300  IFCVE. >9901, 315,304 
105  IF  (AHX  (l>  >4903, 304, 30b 
>af»  4*t 
JJ»J»1 

307  IFtyeuol  3J,61JJ, 6W0 
hi 30  NSAMVt<>*V(L>>72.0 

Mse*i«o»(va>-v(<>>/(ov»s-ijjNO>»3T 

VA90VC«MS4/*<:4 

hl40  ANPf«AHXlH>*yA4!)Vt79Y*0T 
501  IF  (U? 3! 509 «*» 04 ,532 
50?  1F(AHX(X) > 1400,504, »03 

403  N>< 

N*  I 

CO  TO  504 
504  !NNP*0,0 
•NO* *0.0 
MV*»O#0 
UUt9>0.0 
CO  TO  1 

51?  IF  IF $>  9409,51b, 504 

40b  IF|A1Xf<*l>>  4404,304,50  7 

44?  4*<*1 


Ul 


N*I*1 

508  IFCFSIblOJ, 6130,6110 
6100  MSA*(J(K)+U(KU))/2«0 

WS9*1.0MJ<<M>-U(K)  >/<OX*SBOUNO)*OT 
URR*M5A/WS'J 
6110  0tNs4NX<M)/TAU<N> 

IF(GAH)  9990,9989,9900 

9989  CARTsX(I>*2.0 
GO  TO  9991 

9990  CART  =  l  •  0 

9991  AMMP=OEN/PnTS*CART*URR 

1  IF(AMNP) 16,74,4820 
ft  820  IF<GAMC(J) >74,74,8821 
8821  IF(FS>6120,6120,74 
6120  IF(AHXCK«-1))9901,74,74 

74  J1  AGS  0 

2  IF  (’AMPY)  3,4,4 

3  ITAG=1 
WS9-4MPY 
AMPY=0.O 
GO  TO  64 

4  IT  AG=0 

64  IF  ( AMMY ) 9, 5 , 5 

5  IF (GAMC ( J) >  7,6,o 

6  WS-AMX ( K) 

GO  TO  11 

7  HS  =  AMX  <<)  «>GAMC(  J! 

GO  TO  11 

9  IF<GAMC<jniO,ft,4 
ft  RS=AM< <<> M8MY 
GO  TO  11 

10  HSsAMK  (K)*GAMC<  J)  «-AlMY 
tl  HSA=A«1PVfA1^> 

12  IF(HSA-«S>75,75,13 

13  AMPY=4M?Y*9S/HSA 
AMMPsAHiP*WS/HSA 

75  tF (JTAG) 14,73,14 
73  WSCs AftMP 

14  IF(ITAG) 15,7000,15 

15  A*8PY  =  rfS<) 

I T  A  G  =  0 
GO  TO  40 

16  IF(FS»76,17,76 

76  HSCsAftMP 
GO  TO  40 

17  IF(I*1-IHAX) 19,18,990ft 
lfl  UR99sJ<<*ll  / 2.0 

GO  TO  20 

19  URRR=<U<iUn  ♦U<<*2>>/2.  U 

20  IF (URRPJ  39, 19,21 

21  IFCGAHI9993, 9992, 9993 

9992  CARTsX  (I»U*2.0 
GO  TO  9994 

9993  CARTsl.O 

j  9994  URRRsJRRR/TAtJdUMAMXPOn/PnTS'CART 

22  IF(J- 1)9909, 23, 24 

,  23  V3LO*tf<KM>/2.3 
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24  KP=K*1-IMAX 

VlLQs ( V( K+l ) *V(KP1 1/2.0 

26  IF CV9L0125.34,38 

25  VaLO*AMX(K*l)/OY*VOLO*OT 

27  IF(VEL12S,29,28 

28  tfA3sV<K*l)/2.0 
GO  TO  31 

29  <P-IUIHAX*1 

VA8r(Y  (K«-t)*V(<P1  1  /2.0 

31  IF  (VAS)  36  »3t>f30 

30  YA8=AMX(K*1)/0Y*\/AB*0T 

32  WS=AMX(K*11 

33  HSA=JRRR-AHMP-vML07VAB 

34  IF(WSA-WS)77,77,35 

35  AMMP=  AMMPMS/WS  4 
77  JT AG=1 

WSC=AHhP 
AMMP=0.0 
GO  TO  2 

36  MS=AHX(K*1) 

37  WS4=JRRR-AMMP-V9LQ 
GO  TO  34 

38  V9LO=0 • 0 
GO  TO  27 

39  UPRRsO.O 
GO  TO  22 

40  IFCVE-17000, 41,7000 

41  IF (FS1 42,43,4? 

42  KP=KflHAX 
URT  =U(KP) /2.0 
GO  TO  45 

43  KP=K*IMAX 

URT  =  (U(<P>  fU(<PU> ) /2 . 0 

45  IF (URT 146,46,70 

46  URT  =0 • 0 
GO  TO  47 

70  KP=K*IHAX 

IF(GAM)  9997, 9995, 9997 
9996  G  A  R  T  =  X (11*2.0 
GO  TO  9998 
99^7  CART=1 . 0 

999  9  URT  =  URT/T  A  J C II  *A*!X  ( KP) /Hi  JTb*CA9T 

4 7  IF  C  JU-JMAX145,**  9,991u 
43  KP=K*IMAX 

KL=KPf IMAX 

VA1T=(V<KP)*V(<U  1  72.0 
GO  TO  51 
49  KP-K+T MAX 
KL-KPf IMAX 
VAlTsVCKPI/’.O 
51  IF(VA9T)88lO,7it7? 

8810  IFCAMX (K) 1 9903,71, 71 

71  VARTsO.O 
GO  TO  60 

72  VA8T  =  VA3TMMX(KP1  7OY*0T 
5?  IF(GAMC(J*11 ‘54,53,53 


FT  3 

MS=AMXCKP) 

m\ 

GO  TO  55 

54 

MS s AMX CKP)4GAMCCJ4ll 

55 

WSA2VABT-AMPY9U*T 

GO  TO  57 

6  0* 

IF  CGAMCCJ+l) ) 61 ,61 , 59 

61 

WS  =  AMX  CKP) ♦  GAMCCJtl) 

GO  TO  58 

59 

WSs AMX CKP) 

' 

58 

msa=-ampy*urt 

57 

IFCWSA-WS) 7000, 7000,56 

56 

| 

AMPY=AMPY*MS/WSA 

GO  TO  70 O C 

♦ 

7000 

AMMP=MSC 

309 

IF CAMPY) 88 34,8831,8333 

8833 

IFCJMAX-J) 9311, 318,8835 

8835 

KP  =  OlMAX 

8836 

IF  C  AMX  C KP) ) 9900,8837,313 

883  7 

IF  CAMPY/ (TAU  (I) *9Y  l-TOZONE)  8838,318,318 

8838 

AMPY=0 . 

GO  TO  8831 

8834 

IFCJ-D99U, 8831, 3839 

3  839 

IF (AMX (K) )  9900, 3340, 58  31 

8  84  0 

IF  <-AMPY/(TAU(I)*  3Y  ) -TOZONE) 9841,8331,8831 

8841 

AMPY=0 . 

GO  TO  8831 

318 

JELM2GAMC  C  J) +AHMY-AMPY 

32? 

IFCVELJ9901, 324,323 

523 

NS=UC<) **2*V(K)**2 

ETHserH-AMPY*(AlX(K) ♦ws/2.or 

IF  CAMPY / CTAU Cl) *OY) -TOZONE)  324,324,690  0 

• 

6900 

REZ=1.G 

Z  C 141 ) = 1 . 

* 

» 

MASS  MAS  LEFT  THE  TOP 

324 

AMUT=AMPY»U(K) 

AMVT  =  AMPY*\/  CO 

GO  TO  326 

| 

1 

8831 

AMUT  =  AMPY*J  CL) 

AM\/T  =  AMPY»VCL) 

9ELM=3AMCC  J) -AMPV  +  AMMY 

326 

IF  CAMPY) 327 ,323,328 

32? 

DELET=AIX(L)  +  (U(L)**29-V  CL)**2)/2.0 

GO  TO  333 

328 

IFCAMMY)329,330,330 

329 

OEllT  2Db  Lt  3 

GO  TO  333 

330 

IFCGAMC(J) ) 331,332,332 

331 

OELET=  UGCC  J) 

GO  TO  c  33 

332 

OELET2AIX<«>  *<U(<)**2*V  (0**2)  /2.0 

333 

SIGMU=FLEFT( J) fAMMU-AMUT 

SIGMt/sYAMCC  J)*AMMV-AMVT 

OELEKsGAMCC J)  *SIGC ( J) ♦ AMMY*OELEB- AMPY*9EL ET 

» 

509 

IF (AMMP) 8843,518,8844 

i 

|  8844 

IF(IMAX-I) 9911,518,8845 

1 

J8<»5 

IF < AMX  (K+l  ) )  9900,8846,518 

f 

1  8846 

IF(AMMP/(TAU(l9l) *OY  ) -TOZONE) 8947,518,518 

164 

li 

■  ^ 

i] 

4447  ANMP»0. 

GO  TO  516 

8843  IF (1*1) 9911, 512 ,484 8 
6648  IF (  AHXOO ) 9900, 4849,51 2 

4649  IFC-AMHP/ CTAUm*OY  I -TOZONE> 845 0,512, 5 12 
4850  AMMP«0. 

GO  TO  514 

512  OCLH*OELM-AMMP*AMX(K) 

4828  AHURSAHHP*U ( <♦!) 

AMVR*AHMP*V<KM) 

GO  TO  525 

518  DELMOfcLM-AMMP*  AMX  (<) 

522  IF (FS) 9905,524,523 

523  MS*UCK)**2*V(K>**2 
ETH=ErH-AMMt>*(AIX(K)+WS/2.a) 

IF(AHMP/ CTAU(I) *OY)-TOZONE) 524, 524, 6901 

6901  *EZ=1. 

Z(142)>1. 

:  MASS  HAS  LEFT  THE  RIGHT  SIDE 

524  AMURsAMNP*U<K) 

AMVR=AMMP*V ( K) 

525  SlGMUsSIGMU-AMU* 

SIGMV*SIGMV-AMV? 

526  TIC=Q.O 

52 7  IF (AHHP) 524,529,529 

524  DELER* AIX  (<♦  1 )  ♦  (U  «♦  1J  **  ?*\/<  <♦  1)  **  2) /2 . 0 
GO  TO  537 

529  IF (A MM Y) 530,531,531 
53  0  l)£LER*DELt  3 
GO  TO  536 

531  IF(GAMC(J) >532,533,533 
53?  OELtR=SIGC(Jl 
GO  TO  536 

533  IF (AM?Y)535,535,534 

534  QELfcR=OELET 
GO  TO  536 

535  JELER=AIX<OMU<K)**2*V  (0**2)  7  2.0 

536  TICsl.C 

537  UtUKsDELE.K-AMMP'OELER 
534  IF(TIC)9907,539,550 
550  WS=OElER 

GO  TO  999 

539  WS  =  AIX  (<>  ♦  t'J<<)**2*\MK)  **2>/2.0 
999  IF (DELHI  996,543,540 

994  IF  (AHXOO  *t.E-6fJ£LM) 99  06, 997, 997 
997  OElmsO.O 
GO  TO  543 

540  ENK*AMX CK) *WS>0ELEK 

541  UOO  =  <SIGmj*AMX<<)*U(KJ  )/9ELM 
601  \MK)*(SIGMV*AMX(iO*VOO  ?/OcLM 
603  WS=U(<>**2  +  VCO**2 

54?  AIX  (K) *ENK/OELM-HS/2 •  0 
543  AMX <K>  =  QELM 

IF (AMX (K) >  3900,2007,544 
?007  AIXHO=0.0 
U(K)=0.0 
V  00*0.0 
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c*  n  o  t 


544  GAMC  ( J)  *AMMP 
FLEFT  <J)*ANUR 
V  ANC ( J) *  AMVR 
SIGCCJMOELFR 

545  AMNY*AMPY 
AMHUMMUT 
AMMV=AMVT 
OELEB*DELET 

OELET*SPEClFIC  TOTAL  ENERGY  OUT  OF  THE  TOP 

OF  CELL  IN  QUESTION 

AMPYsiACSIIN  GRANS) OUT  OF  THE  TO* 

OF  CEIL  IN  QUESTION 

546  K?K*iMAX 

547  CONTINUE 
6802  G'J  TO  548 
9901  N<=300 

GO  TO  9999 
990 'J  NK  =  302 

GO  TO  9999 

9903  NK=305 

GO  TO  9999 

9904  NK=50o 

GO  TO  9999 

9905  NK=5Q0 

GO  TO  9999 

9906  NK=513 

GO  TO  9999 
9911  NK=8833 

GO  TO  9999 

9908  NK=  17 

GO  TO  9999 

9909  NK*  22 

GO  TO  9999 

9910  NK*  47 

GO  TO  9999 

9907  NK=538 
99)9  NR  =  4 

CALL  EPRFR(NR»N<) 

548  SUN=0.0 

2035  OO  2001  1  =  l » INAX 
K=I*1 

00  2000  J=l ,  JNAX 
2008  IF(AIX(K))2J04, 2010, 200 J 
2004  SUM=$JM*AIX<K)*AHX<<) 

A I X  ( K) =0.0 

2000  K=K*IMAX 

2001  CONTINUE 
2003  ETH*ETH-SUN 

ZC104)=Z(l04)tSUM 
800?  IFUEZISOOt, 8001, 8003 
8003  GO  TO  8001 
8001  RETURN 
ENO 


joo  non 


SUBROUTINE  REZONE 

RETURN 

ENO 


SUBROJTINE  FIT  1 

NS  >  1.2E-J 

MSA«t.E9 

NSB*0.0 

MSC*0»  0 

RETURN 

ENO 


SUQRO JT INF  STEADY 

DI1FNSI0N 

OlMENS I  ON  UX(359>)}  ,AHX  C JiJOl  .  «> «  3 S *J  I  , 

1  UC3500)  ,Y(1S0  0»  ,  <(6J»  ,Y  (  I  JU)  •  Z  ( IS  r  > , 

?  izmoi  VTAU(60)  ,Pl(100»  ,UL(100)  ,<>R(1U0>  , 

1  U?(100lfNi(l*lvFlEFT<U)J),VAi:<m>  • 

4  SIGC( 1 U 3 1 tCAMC( 100) 


c 

0 

M 

M 

0 

COMMON 

Z 

,XO 

(X 

(V 

COMMON 

AIX 

,  AN 

,  AMX 

,AREA 

COMMON 

FS 

.1 

(II 

»IR 

COMMON 

J 

»K 

(KP 

(L 

COMMON 

MZ 

i  N 

(N< 

«N0 

COMMON 

NR 

»P 

,PABOY» 

(PMLO 

COMMON 

PRR 

»°c 

,REZ 

(KMO 

COMMON 

SIG 

(TAJ 

(TAUDTS 

,  TTX 

COMMON 

U 

,URR 

(UT 

(UTEF 

COMMON 

UYMAX 

»v 

,VABOVr 

(VDLO 

COMMON 

VTEF 

(NS 

(MSA 

(MSB 

COMMON 

xlf 

(XR 

(YLM 

COMMON 

YU 

(UR 

(P< 

E 

Q  U 

I  V  A 

L  F 

N  C 

OEQUIVAlENCE 

CZtIZ, 

PRO1))  ( 

(Z(?)» 

CYCLE)  ( 

t(Z(4l, PRINTS) 

»  (ZC5), 

PRINTL)  , 

( T  C  6 )  , 

DUNPT7)  f 

2 ( Z ( S) f  PIDY) • 

(Z(9>  , 

TMZ)  , 

(ZC10) 

( GAM) f 

3 ( Z ( 12) ♦GAMX) , 

( Z  ( 1 3) 

f  ETM)  , 

(Z (14) 

*FFA)  ( 

4  CZ  ( 16)  t  TMOZ) , 

(Z(17) 

(TMXZ)  , 

CZ « 19) 

(XMAXI v 

5 (Z (20) #  TYMAX) 

,  (Z(21) 

(  AM  JM )  , 

C  Z  €  221 

( AMXM)  ( 

6 (Z (24) V0MIN) * 

CZ (25) 

(FEF)  , 

( Z (26) 

(OTNA)  , 

7 (Z (28) #NPR) f 

CZC  29) 

(NPRI)  , 

(Z (30) 

(NC)  , 

8 (Z (32) »NRC) t 

(ZC33) 

,IMAX) , 

( Z ( 34) 

(IMAXAI, 

1  ( Z  ( 36) * JMAXA) 

,  (ZC37) 

(KMAX)  , 

(Z(1A) 

» KMAXA)  , 

OEQUIVALENCE 

(ZC40) 

( NT)  ( 

(Z(41) 

(KOT)  , 

l (Z (43) «NOD) , 

CZC44) 

,NOPR)  , 

(Z ( 45 ) 

(NIMAX) , 

N 


•  £ 

•  IMS 

tH 

l  NOP 

*  PI91 S 
»RR 
.TTY 
tuu 
tVEl 

f  MSC 


r 

<Z€ 31  ,DT) , 

C Z C 7 1  fCSTOP)  t 
<Z< 111 »gamo> , 
<Z( 15) v FFBI » 

<  Z  C 19) • TXMAX) 
€  Z«  23)  f  DNN)  t 
(Z(27), CVIS), 
(Z(3l)tNPC>, 
(Z(35) v JNAX) , 
(7(39) fNMAX) 
(ZC42)  tlXNAX) 
(Z(4b)  v NJNAX ) 
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2(2(471 

•  ID  , 

(2(46) ,12), 

(Z(49)  ,13)  , 

(2(50) 

»*»>• 

3(2(51) 

•  Nl)  , 

(2(52), N2), 

(2(53) • N3) • 

(Z(54) 

t  M4), 

4(2(55) 

»N5)  , 

(2(56) ,N6) , 

(2(57) ,N7) , 

(Z(56) 

»H8), 

5(ZT9) 

•  N9), 

(2(60) , N10) , 

(Z(61) ,N11)  , 

(2(62) 

,  NRM) , 

5(2(63) 

,  T RAQ)  , 

(2(64)  , X NRG ) , 

( Z (65) , SN) , 

(2(66) 

•  OXN)  • 

7(2(67) 

•  RAOERI  , 

(2(68)  ,PAQET) , 

( Z (69) ,RA0E8) , 

(Z( 70 ) 

,  OTRAO) • 

8(2(71) 

,RE2FCT)  , 

(2(72) ,RSTOP)  , 

(2(73) , SHELL)  • 

(2(74) 

•BBOUNO) • 

9(2(75) 

, TOZONE )  , 

(2(76) ,CCK) , 

(Z (77) ySBOUNO) , 

(ZC  76) 

fXl> 

OEQUIVALENCE 

(?  t  79)  , X 2) , 

( Z (60 ) , Yl)  , 

(2(61) 

» 72)  * 

1(2(62) 

, CABIN)  , 

( Z (83) ,VISC) , 

(Z(84),T), 

(2(65) 

,GMAX) , 

2(2(66) 

,WSGO)  , 

(7(87) ,HSGX) , 

(2(86) yGMAOR), 

(Z(  89) 

,GMAXR), 

3(2(90) 

•  SI)  , 

(2(91) ,S2) , 

( Z (92) , S3'  , 

(2(93) 

»S4)  , 

4(2(94) 

.  S5 ) « 

(2(95) ,S6), 

(Z(96) ,S7)  , 

(2(97) 

,S6) , 

5(2(99) 

»S9), 

(2(99)  ,S10) , 

6(2(127 

)  ,f)X»  , 

(Z  (128  )  ,  QY1 ) , 

( Z (129) ,OY) , 

7(2(130 

) , NFITP)  , 

(2(131) •NF1TT) f 

(2(132)  ,NFITR)  , 

1(2(133 

1  ,NPARB)  , 

(2(134) ,NPART), 

(2(135) , NPARR) 

EQUIVALENCE  <P,IW1) 

EQUIVALENCE (P( 239 ) ,GAMC)  ,  <P(4Q0)  ,  Y  ArIC) 
EQUlVALLNCf  (UR,UL , FLEET) ,  (PR,PL,SIGC) 

••  « 

VEL  =  0.0 
FLAG2  =  12. U 
20  FlAGl  *  0.0 

10  RE AO  (4)  PR(l) ,  PR(2) y  N3 

WRITE  (6,10061  PR ( 1 1 , PR (21 ,N  3 
IF  (PR(1) .EQ. 353.0)  40,31 

31  IF  (PR(l).n.65b.3)  32,35 

32  WRITE  (6,6001) 

GO  TO  1000 

35  FlAGl  =  FLAGl  ♦  1.0 

IF  (FlAGl  -  FLAG2)  34,34,  Hoi 
34  WRITE  (6,1100)  FlAGl 
GO  TO  30 

40  READ  (4)  (Z(I) ,1=1,3) 

WRITE  (6,1104)  (Z ( I) , Is 1 , 3) 

RF  AO  (4)  ( TUM , Q J  (,QUM,OUM ,P( I ) ,1  =  1,KHAXA) 

WRITE  (6,1106)  (P(I), 1*1,3) 

RE  Au  (4)  DU1 
READ  (4)  OUM 
IF  (VEL)  50,50,60 
50  00  55  I  =  1 , KMAX 
55  AMX(I)  =  P(I> 

VEL  =  1.0 
WRITE  (6, It J2) 

GO  TO  30 
60  SUM  =  0.0 
I  =  3 

70  00  75  J  =  2,  JMAX 

K  *  I  ♦  1  ♦  (J  -  l)*IMAX 
OIFF  *  AOS (P (K) )  -  AOS ( AHX(K) ) 

75  SUM  *  SUM  ♦  ABS(OIFF) 

60  WRITE  (6,8002)  PR(2),  SUM 

IF  (C3T0P  -  PR ( 2) )  1000,1000,90 
90  00  95  I  =  t,KMAX 
95  AMX(I)  *  P(!) 


GO  TO  20 

9901  WRITE  (6,8001)  FLAG? 

GO  TO  1000 

8001  FORMAT  (22W0555  MAS  MOT  FOJNO  IN  ,F5.1,7H  CYCLES  ) 

8002  FORMAT  (1ZHQCYCLE  NUMBER  IS  , F5. 0 , 5X , 22HSUM  OF  DIFFERENCES  IS 

1  0PE12.6  //) 

8008  FORMAT  (16H0666.0  HAS  FOUND  /) 

8006  FORMAT (10X, 16HFIRST  RECORD  IS  ,2E12.4, 16,/) 

8100  FORMAT  (10X,9HFLAGt  IS  ,F5.1,/> 

8102  FORMAT  (10X.14HVEL  SET  TO  1.0  f ) 

8104  FORMAT  (1QX,25WTHE  FIRST  3  Z  VALUES  ARE  ,3E12.6,/) 

8106  FORMAT  (1JX,25HTH£  FIRST  3  P  YAL'JES  APE  ,3E12.6,/) 

1000  REMIND  4 
RETURN 
ENO 


SU3R0 JT INP  tRRER(NR,NK> 

CALL  TIME 

WRITE  (6,8380)  NR,N< 

8880  FORMAT  (IJX,5H  NR=  ,I?,SX,5h  N<=  ,14,/) 
CALL  EXIT 

END 
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ADDITIONAL  PLOTS  FOR  THE  IDEALIZ1 
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HYPERSONIC  FLOW 
PRORIEM  22.000 


EXPLOSIVE  ENERGY-  7.9*10* ERGS/SQ.CO  CONTOUR 

DETONATION  VELOCITY-  1 .8 *10*  CH/SEC  iDvnesi 


Figure  C2.  Constant  Pressure  Contouiv  (Isobars) 
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Figure  B6 .  Plot  of  Velocity  Vector  vith  Background  Velocity  SiAtracted 
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Figure  312.  Plot  of  Velocity  Vector  with  Background  Velocity  Sii>tracted 
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Figure  ^22.  Plot  of  Velocity  Vector  with  Background  Velocity  Subtracted 
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Figure  b24.  Constant  Pressure  Contours  (Isobars) 
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igure  B27.  Velocity  Vector  Plot 
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APPENDIX  C 


THE  SHELTC7  CODE 

The  SHELTC7  code  is  a  seven-material  member  of  the  SHELL 
family  of  hydrodynamic  codes.  It  was  developed  for  use  in 
determining  the  flow  of  seven  distinct  mass  species  through 
an  Eulerian  grid  and  can  be  used  with  either  cylindrical  or 
cartesian  coordinates. 

SHELTC7  was  developed  from  the  RADISH5  code  which  is  a 
five-material  member  of  the  SHELL  family.  The  basic  opera¬ 
tion  of  RADISH5  is  described  in  Reference  35.  The  same  basic 
equations  that  govern  SHELL-OIL  (see  Appendix  A)  apply  to 
SHELTC7 .  In  this  case,  however,  the  equation  of  conservation 
cf  mass  described  in  Appendix  A  (Equation  Al)  is  a  global 
continuity  equation  and  refers  to  the  total  mass  in  the  prob¬ 
lem.  In  expanding  from  single  material  to  multi-material, 
an  individual  species  continuity  equation  is  incorporated  for 
each  specie  carried  by  the  multi-material  code.  In  a  car¬ 
tesian  coordinate  system 

TT"  +  !l?(piu)  r  l7(piv)  =  0  (i  =  l'2'-**'?)  (Cl) 

It  is  assumed  here  that  the  total  quantity  of  each  individual 
specie  is  preserved  during  the  mass  transport  phase  (none  is 
produced  or  destroyed— no  reactions  are  allowed  to  occur) . 

The  momentum  and  energy  associated  with  each  specie  are  also 
conserved  during  the  mass  transport  phase. 
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The  same  basic  computational  scheme  which  was  used  in 
SHELLTC  is  employed  in  SHELTC7.  A  computational  grid  is  es¬ 
tablished  by  an  auxiliary  generator  code  (CLAMTC7)  and  loaded 
with  an  initial  distribution  of  seven  materials.  Initial 
values  of  velocity,  energy,  and  temperature  are  assigned  to 
the  total  mass  in  each  cell.  This  information  is  established 
as  the  zero  cycle  on  the  problem  tape  by  this  generator  code. 
The  equation  of  state  subroutine  (STATE7)  is  called  from  CDT 
to  determine  a  cell  temperature  and  pressure.  The  multi¬ 
material  equation  of  state  is  discussed  in  Section  III  of  the 
main  body  of  the  text.  A  time  increment  for  the  cycle  is  de¬ 
termined  by  CDT  based  on  the  particle  velocity  criteria,  the 
same  as  for  SHELLTC  (see  Appendix  A) . 

The  PHASE  I  computations  are  also  the  same  in  SHELTC7 
as  in  SHELLTC.  Only  the  negative  integration  option  is  de¬ 
leted.  In  this  case,  if  an  unstable  situation  is  encountered 
(such  as  negative  internal  energy)  ,  the  computation  is  immed¬ 
iately  terminated  with  an  appropriate  error  message.  In 
Phase  I,  the  mass  in  each  cell  is  considered  to  be  a  single 
uniform  material  because  multiple  materials  in  the  cell  do 
not  affect  the  Phase  I  calculations. 

It  is  in  the  Phase  II  computations  that  all  mass  trans¬ 
port  occurs  and  multi-material  effects  are  seen  in  SHELTC7 . 
First  the  total  mass  transport  in  and  out  of  a  particular 
cell  is  accomplished  much  as  in  the  single-material  case. 

Then  the  individual  mass  species  are  transported  across  the 
cell  boundaries  by  a  weighting  scheme  which  assigns  the  same 


proportions  amongst  the  species  in  the  transported  mass  as 
existed  in  the  donor  cell  just  before  the  mass  transport. 
Conservation  of  energy  is  used  to  determine  new  cell  energies 
and  conservation  of  momentum  is  used  to  compute  new  veloci¬ 
ties  .  Conservation  of  momentum  and  energy  is  also  accom¬ 
plished  for  each  individual  mass  specie,  and  this  information 
is  also  used  in  obtaining  the  new  velocities.  Once  mass 
transport  into  and  out  of  any  cell  is  completed,  the  mass  in 
that  cell  is  considered  to  be  uniformly  mixed.  This  leads 
to  an  artificial  mixing  and  diffusion  of  one  mass  specie 
through  the  others  which  is  discussed  in  some  detail  in  the 
main  body  of  the  text  (Section  IV) . 

The  code  then  accomplishes  subroutines  INTFACL  and  PDC 
(both  discussed  in  Section  III,  main  body  of  text)  before  re¬ 
turning  to  CDT.  The  INPUT  and  EDIT  subroutines  are  essen¬ 
tially  the  same  as  for  SHELLTC  except  provisions  for  record¬ 
ing  and  printing  out  the  quantities  of  all  seven  species  in 
each  cell  are  provided. 

In  SHELTC7  a  total  of  13  variables  must  be  stored  for 
each  cell  in  the  computational  grid.  Hence,  it  can  only  be 
run  on  computers  with  large  memory  capacities.  Further,  the 
time  required  for  execution  is  substantial  (3  to  5  cycles 
per  second)  making  it  imperative  to  run  this  code  on  a  fast 
computer.  SHELTC7  is  currently  structured  for  running  on  the 
CDC  6600  computer.  A  listing  of  SHELTC7  as  used  in  this 
work  follows. 
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I 


LISTING  OF  SHELTC7  CODE 


PROGRAM  SMELTCMTA1^  t INPUT, OUTPUT,  T A PE5=  I NPJT,  TAPES  =  OUTPUT> 


NOTE-THIS  ’POGjAM  CHANGE 0  TO  AOCOMOOATr  SEMEN 

MATERIALS  ami  two  coordinate  systems 
material  oesi-.nators  are 

A  -  NIT  ROSE- 1 

1  -  JYYCEN 

C  -  CA’30  I  MONOYIOE 

o  -  ca'mom  oioxio:. 

E  -  WATER 

F  -  MYO’or,t( 

r,  -  CA  >  30  (  (SOL  I  3) 


co  ho-i  z  (Moao 3) 

CALL  INPUT 

tall  r.)T 

CALL  E  31  T 

IF  ( Si  *1  St  LIGHT  1)  v L’  ,  ' 
CALL  ’Ml 
CALL  PM? 

CALL  I  NT  FACE 
CALL  P3C 
GO  TO  if 
CALL  PRINT l 
STOP 

wMO 


SU  3ROJTIf£  I  IP JT 


OIIENSU  N  MY  <3?;  3 
1A;1A(C23C)  ,  AM  3  (  ,?  J  3 
2AM(,(*j2-30»  ,  THE  TA  (.j2 
UI  (EriSIUN 

oiilmsion  tauujj) 
01  ME  MS  ION  I  HI  (15), 


rL  EFT  (?or  ) 
JR  (2u C  ) 

OX (100) 
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CO*  MO  J 

7 

,XX 

,  UP. 

,YY 

COMMON 

AID 

y  A  IX 

,  AM 

,th:ta 

,  AMX 

,  AREA 

COMMON 

31 G 

, bounce 

,  10XN 

yOOVK 

,  IKE 

yOVK 

COMMON 

JX 

l  OY 

»  - 

» F  0 

,FS 

,FX 

COMMON 

OJT 

,  A  R  0  7  E 

,PBLO 

, RIOTS 

yPRABOl/ 

COMMON 

t  PUL 

,  OOT 

y’C 

y  RE  2 

,RH3 

COMMON 

xl  ,R3 

IO,0310FL,SWI TCN 

,TABLM 

COMMON 

TAU 

t TAUJTS 

, TAUOTX 

.  o 

,  <JK 

ytJPK 

COMMON 

or 

,uu 

,UUU 

.  UT  EF 

, JVMA  X 

*V 

COMMON 

7 A  30VE 

,  VBlO 

,  y  el 

»  VT 

,  VTEF 

COMMON 

H 

, VVAJOV 

, VVBLO 

,K3 

,WPS 

COMMON 

9  S 

,WSA 

,  MSI 

,wsc 

.XL 

,XLF 

COM  ION 

XN 

yXR 

» Y  » 

,Y.  W 

,  YN 

,YU 

CO  1M  ON 

ZM  AX 

.1 

.11 

.IN 

.IR 

,  IWS 

CO  MON 

IWSA 

f  IWS9 

ylWSC 

y  INI 

» J 

y  JN 

COM  ION 

J3 

.< 

»<N 

,KP 

,KR 

CO MM UN 

<  3  1 

»L 

» M 

,  M  A 

,  IB 

y  MC 

COMMON 

3J 

»MC 

.  12 

•  N 

,  K 

yNKMAX 

COMMON 

N<  1 

,MQ 

.NR 

,  rw<? 

COMMON 

AM A  f  AM  3 .  AM  C» AM) 

, A  M  £  y AMF 

,  A  MG 

e  i 

U  I  1/  A 

l  r  n  : 

- 

fli.Q  JlV  ALE  MCE 

(  Z,  IZyPPO  3)  , 

(2(2) y^YCLI)  , 

<  Z  (  ^  )  , 

f)T)  , 

1 (Z  <4  ) , PRINTS) , 

( Z ( 5 ) , POINTL) , 

(7(6)  ,NUMPT7)  , 

( Z  ( 7  )  , 

CSTOP)  , 

2  ( Z  (  3  )  ,  PI  H )  , 

(  3(0)  ,  Tri7)  , 

<  Z ( 1 u )  ,GAM)  . 

(7(11) 

,GAMD)  , 

3  < Z  ( 1  ? )  ybAMX)  y 

(7(13)  ,i_TH)  , 

(7(14)  , r  F  A )  , 

( Z  (1  5  ) 

yFFB)  , 

4(Z(1C),T‘10Z), 

(7(17)  y  TMXZ)  , 

(7  (  13)  ,  XMAX)  , 

(  Z  C 1  9) 

, TXMAX)  , 

5 (Z (?C ) yT YMAX) , 

(7(21)  ,AM0M)  , 

(Zt?3)  , A M X  9 ) , 

(Z (23) 

,DNN)  , 

6(Z(24)  yOtll’l)  , 

(7(25)  ,FCF)  , 

(Z(23) ,0TNA), 

(7(27) 

yCVIS)  , 

7(Z(?«>  ,NPR), 

(7(79)  y  MORI)  , 

(7(33)  ,NC)  , 

(7(31) 

»NPC)  , 

3  (Z  (  3?)  ,N PC  >  , 

(7(33)  ,IMAX)  , 

( Z( 74>  ,  I.MAXA)  , 

(7(35) 

y  JM  A  X )  , 

9 (Z (36)  ,JMAXA) , 

(7(37)  .  K!1  AX)  , 

(Z(  3«)  ,KMAXA)  , 

(  Z  (  3  9) 

yNMAX) 

0 t_QlJ I V  ALL  ?IC £ 

(  Z(4„)  , Ni))  , 

(  7(41)  ,«')T)  , 

(Z  (4  2 ) 

yIXMAX)  , 

1  (  Z  (  43  )  .N  0 0 )  , 

(7  (44)  ,  N03R)  y 

(7(43)  .  N I  M  A  X)  , 

(  Z  (4  6 ) 

. N JM AX  )  , 

2 (Z  (47)  ,11)  , 

(7(48)  ,1?)  , 

(7(  40)  ,  I  3)  , 

(ZCO) 

.14)  , 

3(Z  (51  )  »M1)  y 

(Z  (3  2)  ,  N?)  , 

(  7( 57>  ,  N 3 )  , 

(2(54) 

,N4)  , 

4  (  Z  (55)  ,N5)  , 

(2  l;b)  y No )  y 

(7(57) ,N7) , 

( Z  (  5  8 ) 

,N8)  ,  - 

5 (Z (39) ,M9) , 

(2(60)  , N 11 ) y 

(  Z  (  0  1  )  ,  N  1  1  )  y 

(Z (62) 

,  NRM)  , 

b(Z(o.3)yTc>A1), 

(2(64)  ,XN  ?j)  , 

(  Z  C  63  » ,SN), 

(7(66) 

y  OX  N)  y 

7  (Z  (67)  ,c  AO£P)  , 

(  Z  (  6  3)  ,PA  J£T)  , 

<  Z  (69)  ,  RADEB)  , 

( z  ( 7  a ) 

, JTRAO)  , 

8  ( Z  (  7  i)  #R  ZFCT)  , 

(  Z(7  3)  ,RSTJP) , 

(Z  I'D  .SHELL)  , 

(2(74) 

yBPOJNO  ) 

9  ( Z  (  76  )  ,TOZ  JN  •)  , 

(  7(  '6>  yi  CO  , 

(7(77  )  ,  S30JN3)  , 

(7(78) 

y  XI) 

jt  a  Hi  \/  ale  nc-: 

(  Z(79l  ,/?)  , 

(z c so  ),rn  , 

(2(81) 

» Y2)  , 

i  (Z(B?)  yCABLN)  , 

(ZM3)  ,  VI  SC)  , 

(  Z  (  8.  )  ,T)  , 

(7(36) 

♦  UMAX)  y 

2  ( Z  (  3  6)  yWSG)) , 

( Z ( 8 7 )  ,WSGX) , 

(7(8-3)  ,  GM  A  JR)  , 

(2(39) 

, GMAXP) , 

J (Z (90  )  ,S1) , 

(  2(91)  ,  S2)  , 

C  Z ( P3)  , S3)  y 

(2(93) 

.54). 

4(Z (94)  ,S 3) , 

(  Z  (  95)  ,  St>)  , 

(7(96) ,S7)  , 

(7(97) 

♦  S8)  , 

5(Z(9H)  ,S9)  , 

(  Z09)  ,S13)  , 

7  (Z  (l 30 ) y  NF  [ T 1 )  , 

(  Z  ( 1  31 )  ytIFITT)  , 

(  Z  ( 13  2 ) , NFITR) , 

d(Z(133),MPAO  U  , 

(7(134)  ,NPAR  T )  , 

(Z  <  1*0 , NPARP) 
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•")  O  o  o  n  o  .*)  o  n  o  o  o  o  r> 


C 

•-QUIVflLt  MCEC3 (2j  >)  ,C,A  M' )  ,C»UO,  »  ,/A HCI 
FQUIVAirflC:  <  'IR,  'll  (  FL* FT )  t  (PRt^L.SIGC) 

lQ  JIVAlC  *IC  I  (XX  (  2> , X(l> >  ,  <  V  Y  C  ■*)  ,  V  ( 1)  J 


SENSE  LIGHT  7 
PRIM T  3T13 
3013  F0R1AT(*iM 

p»EA)  (f>,1304UM3 
HRITt  (t  ,3  )0** )  IMS 
*  CALL  CA«1S 

RCA  l  T A 


10U.  .  4  Z  - 1  1 

IWS=3 

ILL  i  McHl-’H  4 

103  ■*  PC  V)  (4 )  P  '(  U  ,  P  »(-»>  ,07 
MR= NT* j 

1 0 1:  o  IF  (3f  d)  -5>?  .0)  1  H  J,lr1 1  Jl> 
i-i  if(P’U)  .l  i.  sb*>.)i  1 3 , i i 
ici’  jo  inn  1  =  1,6 

101*  'JACK  S'*  AT 

uO  TO  1C23 
i:  1  :  IWS  =  IMS*  t 

lull  IF  (ynxiMSt  it  inr»,M  *02,13  3 
l  J 1  S  IF  (  7  (23:  ) -’3(2)  1  l  t?3,  1  2  •  l  i  '  ^ 

102 .  Jr n (4)  JUT 
^0(4)  1U  1 
3£AJ(4)  011  1 
h’EA  J  (4)  JU1 

f-’tnju)  nui 

oO  to  ico<* 

1C2J  REA>(4>  (Z(I),T-1,  I/) 

IF  <AMSF(*>o  n-7(  ?3J)  )  -  .  1  )  1)2**,13  24,  nri 
1C  2-*  ''E  A  j  ( •♦)  (O(I)  ,/(I)  ,  A  U(I),\l<(t),P(  t)  fY**-latl»,I« 
°-.A)(  4)  (  AMAH  )  ,  AN  HI  )  ,Artf  (l)  , AN  Mil  ,  VI.  I  Y  »  ,f,  IF  (I  » 
1 1  “  1 ,  KM  AX  A) 

pea  i(4)x  (0),  mil ,  TA'id  )  ,in,mo 

X(3)  =  t.o 

PEA)  (4  )  (V  ( t),  T  -G,  JMA  <  ) 
tu34  REA0(4)F  S,RC,R  * 

1 0  3  y  IF  (  F'-**!  •»•■))  >?-l  34,1 04  J,1  3  7* 

103  3  IF  (?C-oL6.1)  ) A  16, 134  1  ,H  > 


EMD  3F  R~AJ  Tftar 
»EA1  IN  >:^MMI  »f,  INPJT  CS°)r. 


,<^1* Al 
A1  ,(I  )  , 
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104.  call  n^is 

if  i nc »  wq,h 
4  iO  '«*»  <-i  ,  <»\<\ 

4  j  f'(<)  =Q  .< 

T*  T-  }T  |£  ; 

f »r -  lC-1 
ovcl  =  ir 
npc-mpc- 1 

•JV  1  *  *  =  3  .  p 

*  »  jo  i=  i ,  riA* 

no  ic  j~ l ,  j  m 

jj)  jy  < j>  3  y <  j» -v  <  j-i  > 

J  V  -  «/-«. 

61  )0  1  I  !  ,  J X  , 4 
<  ~  T  *  : 

10  J-  I  ,  < 

I F  (  *  <  J  > )  f  0  ,  ,  '  Q 

o  .>  .0  IT  T-|  r 
r.O  r  1 
7  ro  ifi  i  r 

MP[T_  (t  ,  Sill)  I,  U  (L)  >1  =1,0 
HP  I  T  ((  ,  4  l  1?»  1  ,  (  ’  (L  )  ,  L  =  1  ,<) 

9  .  ro  i  r  i  i  jt 

CALL  <1  f*  T  ' 

/  c  l  •  «i  -  i . :  'i  *  r  i. ' 

(.n  t '*  u  uo ) 

■;  m  ii  j:  iaj'ith,  rn  »r 


■  >i  ) » 

99C1  ►l<alt?1 

1,0  T  f  ^ 

99C?  f|<=  1 J  1 1 

00  TO  Vi  n 
99J,  !  <  = 1 ' 3  o 

00  TO  ^  <9 
99C  »IK  =  i‘*i 

C,0  rn  ju  jo 

99 Jj  'K^/iJ 

oo  n  P9i 

99  C  ^  *l<  =  ^':l? 

9999  MK-i 

CALL  :  i»  K» 


FORMATS 

100  l  F01  ITT  (7  1  1.  J*I>  » 
9G0-*0ro  "1 A T  (I  t  ,  'I- 

1  » 
9111  FO'MAT  ( 

911>  FO  '  TAT  (K,  )>v» 


SUBROUTINE  CAROS 

DIMENSION  TA3LH1)  *C ARO<  7)  ,LA9L  E  <1) 

COMMON  TABLE 

tQUIVALENC£<  TA)L£(  l>  ,LABlF(l)l 
WRITE  (6, ID 

1  RE  AO  <5  ,11)  I£'IO,LOC,NJMWPC,  (CAROCI)  ,  I-!l,NUMWPC) 
WRITE  (0,12)1  :  if)#LOC  ,H1HWPC,  CSAR-JCI )  *1  =  1  ,NUM8PC) 
00  4  1*1  #  N  JMW°0 

JsLOPfI-1 
I F  ( I E NO-  2 )  2#5,  ? 

3  LABLE<J)*IpIX(OAPm)  ) 

GO  TO  4 

2  TABLE  (  J)  *C  ARv)  ( I ) 

•4  CONTINUE 

if(i:n>d  i»  b  *  i 

i  PCTJ^N 

C  FORMATS 

li)  FORMAT (20H1SH  LL  INPUT  CAROS///) 

11  FORMATCIl,  I5,Il,flP7E0.4) 

1?  FORMAT  (1  m  14, 17, Ii,lP/£14.6) 

ENO 


SUBROUTINE  P’liTZ 
COMMON  7 (1 30) 

PRINT  Ul2»(MI)#I*l,t»H) 

°RINT  Bll?  ,(7(I)  ,1*60,104) 

PRINT  41  14,  (7(1)  ,1*105, 150) 

8112  F0RMAT(4H1  1  ,  ?X,6MP'>0i  Do .  i  ,  3  < ,  6mC  *  El  .1 ,  -X  ,  b*  OT  E16.E#5 

AX,6m-»RINTS  '.lb.  VhM  5,  TXort^RlNTLLlo.*,  *,b-JUMOT7£  16. 8 ,5  * ,6MC« TO 
0°  "U.B,3X,6Hr»rO<  Elb.1/4H  B,TX,bnTl7  *  lo.  8 , 5X  ,  6HuA  1  '16.*# 

C?X  ,6HG  AM)  ,Hb.B,vX,6^GA  :w  E15.8/4H  1t,t*#om£Tm  £i  o  .  9  #  5*  ,  t*  FF 
OA  £16.4#  jX,6hFF  4  E’ b.  4, 5<  ,  5M  TM1Z  t  i,4/*ri  17  #  3*  .bnTWjcZ  El  6  . 

EB#5X,6HXMA  <  CLb.4,bX#‘HT)HA<  •  l  3  •  4 , 8  X,  *»MT  TM4<  £l6.8/««  ?1,1X,‘-A 

FMOM  Etfc.  9»5X,6HAi1XM  :16.4,3X  #6  ONH  E 1 6. *»  5< ,  oM  TMT  i  ‘16.4/4F 
G25,3X,6WFEp  £16.  B,3X,LHUT1A  £  lo.  8,  5»,oHCwl  i  -  lo  .  *  ,  5  *  ,6iNPR  1| 
M<#Iti/4H  7q,TX,7HNPRI  115,8/,  7hmC  U5,3X*7hi 

IURC  I15/4H  3  >  ,  1 X  ,  Z*'l  MAX  I  1 5  ,  ?  X,  7*1 MAX  A  1 1  8,  5X  ,  7-*  JMAX  III,  I 

J5X ,  7H J4AX  A  U3/-.H  3 7 , 3 X ,7i< MA X  I  l*. 5« • 7h<14x A  I  l  5.  ><  ,  7  4MMA« 

K  1 13  #  3  X#  /H'lO  115/*.*  4l,3X,/MOT  1 1 5 ,  >X, 7-HX MAX  I18,5/,7mn 

LOO  II  ^  #  3  /  #  7MN J°R  I  15/4M  48  ,  XX, /nNINAx  115 ,5X, 7mn JMAx  115,5 

MX ,  7HI 1  I15,5X,7MI2  1*3/44  4B.JX, 7hH  U5#5X,7hI<, 

Nil  3#  5X,7  r*N  t  I13,5X,7HN2  I15/4H  ,3.<#7M  <3  .  I15,5X,7FN4 

0  lit  ,  5  <  #  >15  I!5,PX,7MM6  115/4-  ,7,jX,7*rM7  115,5/ 

P#7HNM  Ilr>,5/,7HNO  Il>,5X,7HNlO  I13/4M  bl.3X,7MNll  I 

015 ,3  X,7HMP  •  I15#5X,'hTRA)  *:t6.  8,5X,6MXNP0  £16.8/*.m  65,3X,£hS 

RN  :lb  •*  #6X  ,*>H  JX*I  i  lb.  1 ,3X  ,  6MRA)c®  El  o .  * .  5*  #  5H®  AOET  Ftb.8) 

8113  FOR  1AT (4M  G  B,TX,6PRA(j:0  Elo  .8 , 5  X,  bn  )T<  AO  1 1 j. A, >/ ,  6 < »£2FCT Elb • r ,5 

A/,  4HPST0P  :io,M/4H  7  3,  3>,  oHSrliLL  F  16.  *•  »*#6*<  M3  JN1E1  b.  d,5x,6MTC70 
9NEE16.  4,  5X  ,bHC0<  E16.A/4H  77  ,  IX,  6*S  10UM0E  lo.  8 ,6X,  6MX1  E16.8* 

C5X,bHX?  H6«8»5X,SMri  tlb.9/4H  n#J»,)H»*  Eli  •  8,  »X,6MCAB 
OLN  £16,9 , 5X  ,  bNi/I  SC  £  l  , .  H,5X  ,6*4  T  £16.4/44  A3,3/,oMGNA<  Eli. 8 

£#5/,6HRSG0  C  1  i.8#'3X#64WSGX  S 1 o • 4# 5X # oM&M AO >  E16.9/4M  89#JX,6*-GW 

FAXR  tlo.  4,  >X,oHSl  £lb.8,5X,GNS2  *  16  •  9  ,?X,6MS3  tlb.8/4M  9 

G3#3X,6HS4  E16.M ,5X,' HS5  "  1 5. 5 , 3X, b*f 6  t lb.  9 , 5X ,6MS7  El 

MG.I/^M  )7,3X,oMS9  16.1#r>/(,6NS9  FI  b  .  8 ,  i< ,  6MS 11  E16.*,Ek,6 
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0(100  O  o 


IHZC1U0K16.V4H  101,9X,Elb.8,3<  11X#E16.  6)  >  ,<44-.44L  -4  44,.« 

111*  FORMAT  <  •  115*lXEt6.«,  J<UX£tb.8>  /•  199*9X£  16  •  8  1 3  <11K  lib  •  81  /•  It .  *9 
AXF16* 1*3  ( 1 1XC16  •  8)  /•  lt7*9XEtb.  8»3<11XE16»8)/*  I?1*9XE16»6#3C11XE1 
8o«1)/*  1  23  *9X£lo«  1*  3(  11  XElb#  A) /•  129*9XEtb»8»  3(12Xtl5)/*  133*10x11 
C>,?(l2XI  D)*ltx£16.8/*  137*9XElb.8*  3<  It  XElb.  8)/*  141*9XEt6.8,3fliX 
Uas.l)/*  146*1XE16.8»3(11X£16.8) /•  149*9XE16.8*tiXE16.«> 

RETURN 

LN) 


SU1R0JTPE  COT 


DIMENSION 


DIMENSION  At Xf 62411  ,AHX  (6230)  %°  (o200)  ,u(6200)  *</  (o^OO)  , 


1AMA(o20O  »  AMKi2J0)  ,ANT  U230)  »  A  111639  01  ,  ARE 1 62*?  0  » ,  Air  (6230)  , 
2AMG(6?3G)  *  Tnt.  TA(o20til  *  )  Y ( ?3  3/ »  X  X(  D  1)  ,VY(?0il 


DIMENSION 

XU  J))  , 

(U'.j) * 

Z  ( DO )  • 

IZ (19  01 » 

FLEFT  (200 

DIMENSION 

TANI  DO)  * 

PL  C2C  3)  , 

•IL  « ?0 0) 

•  p*on), 

U*(200l 

DIMENSION 

iMltDI, 

YAMC(2J.) * 

SIGC(  20 01  ,  cam: 

(*001  * 

OX(IOO) 

COMMON 

l 

vxx 

•  UP 

fit 

COMMON 

AD 

*  A IX 

.AM 

, THETA 

•  AHX 

•  AREA 

COMMON 

116 

,90JNCE 

•  19XN 

»33VK 

•  OXE 

*ovx 

COMMON 

)X 

*  UT 

•  S 

.TO 

.T9 

•  FX 

COMMON 

OUT 

,P 

•?ANOtfF 

,**010 

,  PUTS 

,  PPABO  V 

COMMON 

COMMON 

9RR  *  PUL  DOT 

>L,R»*SIG,'m3FL»SMlTO 

.PC 

•TA9LM 

•  lit 

•  PMO 

COMMON 

TAJ 

•  TA'JITS 

•  TAUOT  X 

.u 

.U< 

•  JRR 

COMMON 

UT 

*UU 

•  uuu 

.UTEF 

•  'JVM  AX 

.  v 

COMMON 

VA10VE  fV'JLO 

•  VEL 

»VK 

»  MT 

•  VTEF 

COMMON 

vv 

*  VVA30V 

• VV9L3 

.M2 

•  M3 

•  MPS 

COMMON 

MS 

*  MSA 

•  MSI 

•  MSC 

•  XL 

•  XLF 

COMMON 

XN 

*  X? 

.  f  L 

»  YlM 

.  t  N 

.<u 

COMMON 

I1« 

..  .1 

•  II 

•  H 

.1* 

•  IMS 

COMMON 

IMSA 

*  IMS  T 

•  IMCC 

.  IM1 

.  J 

•  JN 

COMMON 

J° 

.  J° 

•  < 

•  <N 

•  <P 

•  KR 

COMMON 

KRM 

*L 

•  M 

»MA 

,M9 

*MC 

COMMON  MO 

COMMON  JKL 

COMMON  AHA*ANl,AlC, 

*  . 

.lit 

*N0 

AMO*  AME* AMF 

•  (Z 

•  MR 

•  AHg 

*N 

•  IX? 

»M< 

, NKHAX 

*  1  » 

<  ?  !  1  .  i 

E  Q  U 

I  V 

A  L 

E  ;  n 

4*  ~  — 

*  r 

I 

0EQU.1V  ALT  NCt 

(Z,IZ,RP01)  *f 
( Z(3)  ,pp.IMTl)  * 

<  Z (2), * 

CYCLE), 

2  • 

-  1(Z  (h),  PRINTS)  • 

(7(6)  * 

OUMPT  7)  * 

2(Z(8) *PIOV), 

(  ZD) ,  TMZ)  ,  * 

(7(10) 

•  GAM)  * 

<: 

3  (Z(12)  »G  AM  X)  * 

(  Z(  1 3)  *ETM)  , 

(Z(14) 

»TFA)  , 

0 

4  { Z  ( 1 6  )  *T  MO 7 )  * 

( Z  ( 17/  ,  TMXZ)  ♦ 

(Z(l«) 

•  XMAX)  y 

f 

5  (Z(2  0)  ,T  <M  AX)  , 

(Z(21)  * AM1M) , 

(7(22) 

*  AMX  4)  * 

e 

6  (7  (  *4)  ,0 MI  N)  , 

(7(25) *FhF) , 

( '(2b) 

» OTNA )  * 

fl  ii 

7 (ZC?M)?,NPR>  , 

(7(29)  ,NPRI) , 

U<  30 

*NC)., 

r 

8(Z( <?) *NRC) , 

(ZU3I  *IMAX) , 

(Z ( 34) 

♦  IMAXA)  * 

9 

9(7(36) , J  MA  XA)  • 

(Z(  37)  •  KMAX) 

(  Z( 30) 

•  KM  AX  A)  , 

1* 

'd  (  ,  »  '  ,  J  ; 

■  ■ »  "  <  ‘  i 

.  c  ! 

(7(31, OT), 
<Z(7),dS TOP), 
(Z(ll> »QAMO) * 
(Z(15),FF9)  , 

( Z  (19) »  TXMAX) , 
( Z  (2  3)  *  DNN) , 

< Z(2 7)  ,CVIS)  * 
(Z  (3 1)  *NPC)  * 
<Z(35), JHAX) , 
(Z(39) *NMAX) 


^nc 


oooo 


C 


QtQUlVALE  NCE 
1  (Z (43 )  ,NOOl, 
2(Z(47) ,11)  , 

3(2 (51 ) ,N  1)  , 
4(Z(55),N5> , 
5(2(59)  ,N9)  , 
6(2(63)  yTRAJ)  , 
7(2(67)  yPAO*!*)  , 
6(Z( 71 )  ,RE  ZFCT)  , 
9(Z(75)  yTOZONn  , 
OEQUI  VALENCE 
1(2(1?)  #f  AtiLN)  f 
2(2(16)  ,WSG1)  , 

3(2(94)  ySl)  , 
4(2(94)  ,S5)  , 
5(2(98)  ,S9) » 
7(2(1 10)  *  NF  tT9)  , 
8(2(133)y  NPAP1)  t 


(2(40) 

»N0)  , 

(Z(44) 

yNOPR)  y 

(7(41) 

#  12)  * 

( Z(52) 

,N?)  , 

(2(56) 

»M6)  y 

(2(64) 

y  N1 0 )  y 

( Z  (64) 

yXNRG)  y 

(Z(6D 

yRADET)  , 

(Z(72) 

,RSTO»>)  , 

(Z(76) 

,EC<), 

(  2  <  7  9) 

»X2)  , 

( Z(  13) 

,VISC)  y 

(2(17) 

,  HSGX)  y 

(2(91) 

»S2)  , 

(2(95) 

»S6)  y 

(2(99) 

.510)  , 

(2(171 )  ,NF ITT  )  , 

(2(130  ,N<»A«T)  , 

(Z (41) 

y  KOT)  , 

(2(45) 

yllHAX)  y 

(2(49) 

.13) . 

(Z(53) 

♦  93), 

(2(57) 

,17), 

( Z( 61) 

.Nil), 

(2(65) 

,  SN) , 

(2(69) 

, RAOEJ)  , 

(2(73) 

.SHELL) . 

(2(77) 

, S90JNO)  . 

( 7  ( AO 

,  rn. 

(7  (A  4) 

» 7 ) , 

( 2  ( rti) 

,;ha)R)  , 

(2(92) 

.S3) , 

(  Z  (  96 ) 

»S7) , 

(2(13?)  »NF I T9)  , 

(Z(135) ,NPA9?) 

(2(42) 

yXXHAX), 

(2(46) 

y  NJHAX)  y 

(Z(5d) 

•  14), 

(2(54) 

•  M4)  y 

(2(56) 

y  M6)  y 

(2(62) 

y  NR9) y 

( Z (66) 

yOXN)  y 

(2(70) 

yDTRAD)  y 

(2(74) 

ySBOJNO) 

(2(76) 

y  XI) 

(7(61) 

.72)  . 

(2(65) 

yGHAX) y 

(2(89) 

ySHAXR)  , 

(2(93) 

•  S4>, 

(2(97) 

•  S6), 

tO'JIVALL  MCI 

lquiv  ale  nce 

►QUlVALf  NCE 

cq'iivaltnc-: 

LQJlVALLflC: 
LQUWALtNC  I 
tQUlVALt  NCi 

uIuivallnc: 
L  QJIVALtNC" 
EQUIVALENCE 
LQ'JIVALI  HCC 


(Z(  no 
(2(119) 
(Z(llt) 
(Z(ll**)yE 

( Z ( 1 17 )  y  £ 


IF  (SENSE  LIG9T  3)  ?3G,?1& 

zoo  seise  LIGHT  1 

IF  (NC)  21),  205, 215 
20 v  GO  TO  3725 
21.  JBOT  *  7(144) 

JSTART=7  (1  ^7) 

IF  (NC)  7,d,1 
7  Z (91 1  =  AIX(lOl) 

Z ( 94 )  =  AM  X (1C  ) ) 

Z  (  95  )  =  A  M  A  ( 1 0  3 ) 

Z  ( 96 )  =  AM  3(10  1 ) 

1  00  300  1=1 ,INA< 

K2  =  I  ♦  I  (AX  A 
K3  =  K2  ♦  IMAX 

E02  =  AIX(K2)9-0.5*V(K2)*V(<2)*AMX(K2) 
EOl  =  AlX(K3>n.5*V(<3l*VK3)*A1X(K3) 
AMX(K2)  =  Z (94 ) 

AMX(K3)  =  Z(94) 

AMA(K2)  =  Z ( 95) 

AMA(K3)  =  7(95) 

AMKK2)  =  7(96) 

6M9 ( Kl )  =  2(96) 

AIX( K2 )  =  2(93) 

AIX(Kl)  =  2(93) 


207 


U(<2)  =  0 . J 
UC  <3 )  =  0.3 
V<<2>  =  OCTVZL 
V  <<3 »  a  UETVCL 

EN2  =  M  X<  <2)  ♦  j.  5*  V I  <2>  *V(<2»  *AMX<K2> 

EN3  -  AIX<<3)  ♦0.5*\/<<3)  *  V  <<  3)  ♦  AMX  <  K  3> 

303  tTH  =  ETh  ♦  E  12  ♦  EN3  -  f  02  -  £33 
IF  ( NO -2 )  1,2 

1  lMSUM  a  j 
To  tl  C  ri  =  0.0 
GO  TO  3C  0 0 

2  OETLaN  =  DETVEL’IT 

OETMAS  -  D£Tl  E'J*TMIC<*’  XPHO 

EKENVD  -  G  .5*3£T  1A~*  <0  TVEL**2) 

EK  £  *IU  )  =  0.0 
JC£LL  s  AJ3EL 

KC:lL  =  2  ♦  (  JCCLL  -  1)  *IMAX 
LKGM'JO  =  C.5*A  IX  (<CELL>  •  <IJ(<C£LL)  **2) 
cC(WO  =  0  .0*A1X  KCELL)  *  (VUCELL)  **2> 

U(KOELL) -  (')  C  <C£LU  ♦AMX(KCELL) >  /  (  AMX  (  <C£  LL>  *0£TMA3> 

V ( fwELL  )  -  <  AMX  (<CElU  *V(KCFLL»  ♦1ET,1AS*0£TVEl3  /  (AM  <  <<CrLL  )  •i-DtTMA^ > 
AMX(KCELL)  =  A  IX  (KCELL)  ♦  OETM A3 
wKGNUN  =  0  .0*AiX  KCELL)  *  (UKCcLL)  **2) 

EKENVN  p  ?  .5*  AMXKCCLL)  *  (VKCGLL)  **2) 

0EKr*l  -  .;K“frn*r<£’IVT>*Kkf|tJ1«-r,<£  W1-- <£MlH-F<E'll/  | 

if  i  j:mm.lt.o.  ))  GO  TO  qi34 

AI  X  ( KCELL )  a  AtXKCELL)  ♦  1  •*<£'! 

UMAGA  a  OATA*n"T1AS 

CMASy  =  ?ATfj*  JET  1A3 

0MA3C  =  3  A  T  C  *  1  _  T  M  A  G 

0MA3C  =  °A  TO*  lET’IAS 

0MA3F.  a  t»ATc*):TUS 

OMASF  *  JA  TF*  3ET  1 A  3 

0MA3G  s  <ATG*J£T1A3 

AMA(KCELU  =  *:  1A  <<CEl  U  ♦  JflASA 

AM=MKC£LL>  *  A  H  KCf  LL)  «•  QMA51 

AMO(KCElL>  =  A  1C  ( <CC  L  D  ♦  HA3C 

AMO  ( KCELL )  =  AIXKCELL)  ♦  IMAGO 

ame<kc:ll)  =  AiE(<oruu  ♦  haje 

AMF(KCiLL)  =  A1F<<3ELL<  ♦  31ASr 

AMG<K0ELL>  =  A’tGCKCELU  ♦  MASG 

lN A  S  EHIA«'Q1A  JA 

EN3  =  EMU*<JlAn 

EMC  =  EMI  C  *OM  A3C 

ENO  =  ENT 0* DMA  ?>) 

LNE  =  cN  IE*01Ai£ 

EMF  r  EM  IF ♦DMA 3F 
ENG  *  EN IG •OMASG 

EMI  =  ENA*EMU*EN>EN')*rNfc*GMK*EMG 
AIX  <  KCELL )  =  AIXUCELL)  ♦  EMI 
ENOEP  =  IJE  TL F. M* THICK*  EX PHO* EXE N 
AIX(KCELL)  =  AIX  KCELL)  ♦  ENOEP 

ensum  s  em  ;um*:ndep 

TOT  LEM  -  TOTLED*  JETLEN 
WRITE  <f,8 4LU)  OETLCN  ,TOTLEM 
WRITE  <t,84L?>  ENOEP,  -NSUM 
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8444  F0RNAT<2?H)0£T')NATI0N  LENGTH  I S, 1PE12. J , 5X , 

1  27HT0TAL  OETQNATION  LENGTH  IS  ,1PE1?.3> 

844>  FOHHAT  (21H0ENEPGV  OEPOSITEJ  IS  ,1PE12.3,5X, 

1  26HTOTAL  ENE^Gf  9E°0SITE0  IS  , IPE12.3,/) 

EKN  =  E*ENJO  ♦  EKENVO 
ETM  *  £T*  ♦  £OtP  ♦  SIGN  ♦  EMI 
3003  tfELsQ.i) 

IF  (SENSu  LIGHT  3)  215,221 
215  SENSE  LIGHT  3 
ININ  *  INA< 

JNIN  =  JH AX 
GO  TO  3t:*5 
220  ININ  =  II 
JNIN  =  12 

3P0»  00  3C50  I=1,ININ 
301  j  <=IH 

3015  on  305C  J  =  It  JNIN 

302:  IF(AHX(KI.EO.)..3-.AIX(KI.EO.O.)  3021 ,3" 25 
3021  THETA(K>=0. 

P(<l=0. 

GO  T»  30  :•  C 
C 

3025  IF(ThE.TACKI.CQ.1.»  Th£1 A <<» . 

CALL  STATE7 
C 

30 3*;  IF<  A*lS(P(K>l-1.3£-2Q»  3C 32 , 3335, 

3035  P(<)=0.C 

30G.  IF(HSGX-VtL>305], 3150 ,’045 
304 j  VEL=4SGX 
JOSO  K*<*IMA/ 

22o  T*UDTNA 
3055  <OT* 1 

U\MAw  =  -l  .0 

307:  OO  3255  1*1,11 
K*I*l«-IMAx*J31T 
30 9^  OO  3255  J*JSTA»T,I2 
310  3  KP=K*MAX 

IF  4  A  f  X  CK  >  >  1931,  3255,4 

4  IF(AhX(K>/CTAU(II*  3T<  Jl  >-Z«  133M  3253 ,  3n5  5*  31 1 5 
3115  SIG=nxCI) 

3122  IF  <9r<J)-SIG)3l?3»t30rv4ri3 
3125  SI3*OVCJ) 

400  0  WS=SCl^T(GMAX*nU(II*nr(  Jl  *A  JS  t  P  (<»»/(  »Mx  (<)  )  J 
32C5  WS=WS/SIG 
3210  IF(IJVNAX-WS)  3215,3,3 
3215  N 1 0 *  I 
Mil*  J 
UVMAXsWS 

3  IF  (GAM)  5,6,5 

6  WS  =  A9S<U<K)>/TAJ<I>*<  <T)/.5*PI  3Y 
GO  TO  32  25 

5  NS  =  A3SF4 UCKI > /JX 

3225  IF ( UVM  AX -NS)  32 3 J ,3235 , 3276 
3233  UVMAX=WS 
N1 1  =  I 
N1 1  =  J 
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Hi*  ms  «hmv(  *n  /«#«  j> 

J2<ij  i»  chvmax-w  n  i?*5, ipso,  <?*/0 
J2«*.  tun  f 
Mi  s.i 
U9MAK- 

J25  J  i  mil  l  IJ* 

M-ij 

IF(UV  IA*1M  ll^»  1  ll?  .91 
9  NT  *  ,‘./3f  L/  JWMAX* /<  13  1) 

J?9>  KOl-3 

2i  *  conti  nut 
n*  hc-ncm 
r fCL( -nr 

NPC:f|MC»  t 

J3C  #  I F  (U'llL'n  JJ?  ),  J 11 1 
Jllu  IF(K0T)991  i»lll-j»33?3 
331  >  WRITt  U  ,  3  jO  j  IT.  )TilA,  OT 
532  i  TTNA=)T 

<,0  TO  1  ??5 

C  l£G*TW£  MASS 

9911  NK  =  Tn?J 

00  TO  9919 
999*  IK  =  ? 

00  TO  10 <j9 
991  1  NK  =  3>u5 

00  TO  1°99 
991 J  MK*  3311 

00  TO  1999 

C  Th£  OT  WILL  9E  j.  9K  NEGATIVE  .STOP 

9912  NKM 

00  TO  9999 
9911  n<  =  it> 

9991  NR =2 

CALL  tRPPR (N»,M<) 

332?  RCTtlPfl 

800u  OFORM AT  C 1 7HQCH AN'jE  OT  ...  T  =  1PE  l7  •  3.  IH  JT(N ) =1PE12 . 3. 

i  iih  oT  <o*  n- lp:u.  3) 

‘.N  1 


SU-MOUTiriE  PHI 

C  OIMFNSION 

c 


DIMENSION  AIX(62i;)y AM*  (623  J)  yP (62001  yU(o22C)  yV(  62001  , 
lAMA(t20C)  »  AMll(62)3)  ,  AMP  (b230)  ,  AMO  (6230)  yAME (6200  )  fAMF(6200)  , 
2AMG (o20l  I  »  Th:T.\<620  0)  ,r*Y(200»  ,<<(101)  ,YY(2011 


01  TENSION 

XdT)), 

Y(2C0>  y 

7(153). 

17(150)  y 

FLEET (200 ) 

U I  ME  NS  ION 

TA»J(lul)  , 

PL (2*0)  y 

UL(  20  0)  y 

P^ (20  3)  y 

UR  (200 

DIMENSION 

IWK15). 

Y  A  MC ( 200 ) « 

SI  GO (200) y 

GArtC (200  )  y 

OX(lOO) 

OIMENSION 

COMMON 

11(200) 

Z 

f  XX 

•  UR 

,PR 

ttt 

*  4 

COMMON 

AID 

»AIX 

»AM 

•THETA 

•  AMX 

•  AREA 

COMMON 

MI  G 

•BOUNCE 

•  13XN 

#00  VK 

» OK* 

•  OVK 

COMMON 

OX 

»OY 

*£ 

♦  FD 

,FS 

•  FX 

COMMON 

OUT 

•  P 

• PABOVE 

,PBLO 

• PIOTS 

•PPABOV 

COMMON 

PRR 

•  PUL 

•  QOT 

»PC 

»REZ 

,RHO 

COMMON 

COMMON 

RL,RR,SIG,fmOFL,SMITCH 
TftU  , TAUOTS  , T  AUOT  X 

*  TABLM 

»u 

•  UK 

,URR 

COMMON 

jr 

,  UU 

•  JUU 

•  UTEF 

• UVMAX 

»  V 

COMMON 

VA90VE 

•  VCLO 

•  VEL 

.V  K 

.V  T 

,  VTEF 

COMMON 

VV 

• VVA30V 

• VV3L0 

»  N2 

#H3 

•  MRS 

COMMON 

NS 

•  HSA 

,MS9 

»WSC 

•  XL 

•  XLF 

COMMON 

XN 

,XR 

.  t  L 

,aw 

•  'N 

>  /U 

COMMON 

ZM  AX 

•  I 

•  II 

•  IN 

•  IR 

•  IMS 

COMMON 

IHSA 

•  IHSM 

,  iwsr 

» IN  1 

» J 

•  JN 

COMMON 

JP 

»< 

♦  <N 

»<P 

»KR 

COMMON 

<RM 

» L 

♦  M 

,MA 

#  MB 

•  MC 

COMMON 

MO 

,ME 

•  MZ 

♦  N 

t  NK 

• NKHAX 

COMMON 

NK1 

•  NO 

•  NR 

,  I W2 

COMMON  AM  A  ,  AM’3,  AMC,  ftMH 

, AME, ftMF 

•  A  MG 

c 

C  £  3  U  I  V 


OEQDIV  ALL  MCE 

(Z.IZ, 

P°03)  , 

1 (Z ( 4 ) » PP INTS J  , 

(Z(5)  , 

PFINTL)  , 

2  <Z (8) ,PIOY) # 

( Z  (  9  >  # 

TMZ)  , 

3(Z(  1?)  » G A M X )  , 

<  Z  <  1  3) 

» CTM)  # 

4  ( Z  (  1  b)  ,TMOZ)  , 

(Z ( 17) 

#  TMXZ ) • 

5  (  Z  (  2  ri )  ,TYMftX)  , 

( Z  ( 2 1) 

• AMOM) > 

6(Z(2t>  jPMIN)  , 

(  Z  ( 2  5) 

,FEF)  , 

7(Z(  28)  ,NPR)  , 

( Z  (?  9) 

•  NPRI)  , 

8(Z(32) ,MRC )  • 

(Z(  33) 

# IM AX) # 

9  ( Z  <  Th)  #JMAXA)  , 

(Z( 37) 

• KMAX) # 

OEQ'JIVALEMCE 

(  Z  ( 4  0) 

•  NO)  # 

1 (Z (43)  ,NOO)  , 

( Z  (44 ) 

,NOPR) , 

2(Z(47)  ,11)  , 

(ZU8) 

» 1 2)  » 

3  (Z(51)  # N 1 )  # 

(Z(5?) 

* N2)  , 

4 ( Z (55 ) ,N5 ) # 

(Z  (5G) 

»  N  o )  # 

5 ( Z ( 59)  ,N9)  , 

(Z (6  J ) 

•  Nil)  # 

6(Z(63)  »TR  A  ))  # 

(Z  ( 54) 

•  XNRG)  , 

7(Z(67) , RACER)  , 

(Z(58> 

•  RA9ET)  , 

8 (Z (7 1 ) » RtZFOT ) | 

( Z  (  7  2) 

•  RSTJP)  , 

9 (Z(75)  ,T0Z3N'r)  , 

(Z(76) 

,  ECO  # 

CCOUI VALlNCE 

( Z  ( 79) 

»  X  2)  # 

1  ( Z  (  8  2)  ,CftOLN)  • 

<  Z  ( 3  3 ) 

,VISC)f 

2(Z(9b)  ,WSGO)  , 

( Z( 37) 

•  WSG  X)  • 

3 (Z  (91  )  ,S1)  , 

( Z(  91) 

•  S2)  , 

4(Z  (94)  #S5)  , 

( Z  ( 95) 

•  SG)  , 

5  (Z  (98)  ,S9)  , 

(  Z(  99) 

» S10I  , 

7(Z(130),NFTT9J , 

( Z ( 1 3 1 ) »NF ITT ) 

8(Z(1'»3),NPAR9)  , 

(2(134) iNPA^T) 

G 


A  L  E  N  : 


( Z (2)  , 

CYCLE), 

( Z  (  3  )  , 

DT) , 

(  Z  (6)  ,OUMPT7)  , 

( Z (7  )  , 

CSTOP) , 

(  Z ( 10 ) 

,  G  AM)  , 

(Z(ll) 

, GAMO)  , 

( Z( 14 ) 

,FFft)  , 

( Z (15) 

,  FF3)  , 

(Z (18) 

,  XMAX)  , 

(  Z  (1 9) 

, T  XMAX )  , 

(Z(2’> 

,  AMXM)  , 

( Z (23) 

, ONN)  , 

( Z ( 2b) 

,  OTN  A) , 

(2(27) 

,CVIS)  , 

(2(30) 

,NC)  , 

( Z  (3 1 ) 

,NPC), 

( Z( 34) 

,  TMAXA) , 

( Z  ( 35) 

, JMAX)  , 

( Z ( 38) 

,  KM  AX  A)  , 

( Z (39) 

,NMAX ) 

( Z ( 41 ) 

,  KOT )  , 

(Z(42) 

, I XMAX )  , 

(  Z ( 45 ) 

,NIM  AX)  , 

( Z (46) 

, N JMAX)  , 

(Z ( 49) 

,13)  , 

(Z(?4) 

( Z( 53) 

»N3)  , 

( Z  (54) 

»N4)  , 

(Z(57) 

»NZ)  , 

(Z(5d) 

,N8)  , 

( Z  <  61 > 

,  N1 1)  , 

( Z  (52) 

,NRM  )~t 

(Z(65) 

,SN>  , 

(Z  (56) 

, QXN)  , 

( Z ( 69) 

,  RAOE3) , 

( Z (70 ) 

,OTRAO)  , 

(  Z ( 73 ) 

, SHELL)  , 

(  Z (74) 

,  3B0UND 

(  Z (  77) 

,S  BO'JNO)  , 

(Z (7  8) 

,X1) 

(Z(8G) 

,*'l)  , 

(  Z  (3  1 ) 

»(2)» 

( Z ( 84 ) 

,T), 

( Z ( 85) 

,GHAX )  , 

( Z  ( 88) 

,  GMA  OR)  , 

( Z (89) 

,GMAXP) , 

( Z( 92) 

•  S3)  , 

(Z  (93) 

,S4) , 

(Z (95) 

♦  S 7)  , 

( Z (97 ) 

•  SO)  , 

•  (Z  Cl*??)  *NFITR)  , 
,  (ZC135)  ,NPAR®) 


tQUI  VALF NC t  (P  ( 2l)9) , GA MS  )  ,  (P(431  )  ,Y  AMC) 
tQUIVALF.NO;  (UR,UL  ,FLEFT)  ,  (PR, PL, SIGC) 

lQuivalcnc;  <xx(2>  ,x<i> ) ,  wn?),nin 
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-2 

-2 


HIN 
LOK 
NPT*C 
NRC=0 

JSTARTi7(l47> 

JQOT  =2 (1 h4I 
UU=1. EH5 
ut=o.q 
VEL-i.3 

IF  (GAS)  9Q0u, 3301,9000 

PC  =  1.0 

RR  =  RC 

GO  TO  33  C  4 

RC  =  OX  (1)  /<?.  0 

RR  =  (X(1)+X(2)>  /2.0 

K-2 

00  Z^^Z  J-l  ,  JMAX 
PL(J)  =P(K) 

UL(J)*U.Q 

UL(J)=3.0 

K-K* INAX 

00  3363  1*1,11 

K=IM*JB9T*IMAX 

IF(CVIS)  7032, 7103,7031 

VflLO=V(K> 

P0L0  =  9.C 
GO  T C  7C14 
V3LO-0.0 
P8L0”P (K ) 

TAUOTS=T  AU(  l )  '  ji 
09=3.0 

00  334*  J=  JSTART ,12 


•  J  • 

9=0. 

UQ=U(K> 

VO =  \M<) 

PI0TS  =  1. 1/(PI0  7*3T*3  7(J)  ) 
IF  (GAD  9 302,9034 ,9 3 02 
PIOTS  =  2 . 3*3I 3TS 
N  =  K4-IMAX 

IF  f  AHX  (K I )  99:2,3341,33'  6 
IF  (IMAX-t)  9903,3311, 3  310 
IF(  AMX  (K  +  l) )  9934  ,3  312  ,3  314 
PRR=P  (<) 

0R=9 .0 


£TH=ETH-PR9*U(K)/PI0TS*RC 

GO  TO  3313 

PRR=0»  0 

QR=0 . 0 

URR=  RC*U(K) 

GO  TO  3316 

PR  R=  (P(K)fP(K*l>)/?,9 
URR=(U(K)  *?C*U(K*1)*<R)  /2.3 


(AriXCK>/TMHI>  +  AHXCK+l)/TMHI*l>  I  /OY(J) 
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IF(OUR>?003, 19031*2005 

2003  IF (S3) 2b 04 *139 11*2004 
10001  QR*0 • 0 

GO  TO  1316 

2004  UT€F=A3^F(3.5*(J(<)tU(Kfl))) 

OR*-  S3*PHO*UTEF*lXIR 

GO  TO  1316 

200t>  IF(S?)  2tG7,2G0o,2007 
2006  UTEF  =  3  • 

GO  TC  2C38 

200  7  UTEF  =  Akl$F<  0 .5* <  U<  <)  4-U  K*l)  >1 
20  0  CS=S')RTF  (1*4«'>4R/RH0> 

QR=<2H0*0URMS1*C3+S2»S?*QU»>S3*UTEF> 
331o  IF(JMAX-  J)  -J9:'5, 331  1*3321 

3318  PA30VE=P(<) 

A=  1 . 

UT=0.9 

3319  ETH  =  CTH-3A30\/E*V(<)/2.  *TAnTS 
GO  TO  3323 

332  3  IF(AfX(N))9906,3322,  3  3^4 

3322  PA90VE=C.O 
QT= J.3 

3323  VABOVE=(/  (K) 

GO  TO  3328 

3324  PABOVE* (P(<)+P(N) I /?. 0 

RHO -  •  5*  ( A  1XC  K)  +A’4X(rJ>)  /  TAU(T)  /  3  7  ( J  ) 
CVZ= »/  (  <)  -V  (M) 

IF  (OVZI2CQ9, 1330  3,  2C11 
2009  IF(S3)  20  10,1000  3,2010 
100C  3  0 T - u  •  0 

GO  TO  7H31 

2013  VT£F  =  A3S^<  ?.5*(V(K)  +\l(  i)  )  ) 

qt=-sx*pho*vtef*  WZ 

GO  TO  71  v  1 

2011  IF<S?)2C16, 2012, 2016 

2012  \/TEF  =  0. 

GO  TO  2C14 

2016  VTEF=  A  iSF  (  }.5*  C  \l  (<>  ♦  V  (fl I  )  > 

2014  CS=SQRTF  (1 .4*P A-W  Z/~>Hnt 

OT  =  RHO*QV7*  (  Sl*C3*  32*  S?  *  0  V/Z  V  TE-  ) 

7001  IF(JSTAPT-J)  3325,7003, 9  9C3 
7GC3  IF(CVIS)  7. 3.., 7336, 7316 
70 0  J  PBLO=P(K) 

tTH=FTH+POLO*V  (0/2.  3**  AUOTS 
700b  d= 1 

3325  VA90VE  =  (V(<H-7(N) ) /2.w 
332 3  IF ( OEL )  99)7,3h04,3400 
3400  G=6. 3567 Et  08 


G-Z  ( 1  'J  8)  *G*G/  ( (Gf  7  <  J ) /  <J)/2.)  **2) 

IF ( A+BI  9,3,10 

9  WS=<PBtO-P*03\/;>dB-nT)*  TAU)TS/V1X<K)  -G*0T 
GO  TO  11 

10  WSs(P3L0-PlB0\/Ef  ,H-QT)»TAU3TS/A  1X(K)-C.5*r,*0T 

11  V  (K)  “V  (K I  ♦  >(S 
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IF(A3SF<\M<>)-t.Z-01>  3401,3401  *  540? 

3401  V00*0.0 

34C2  U<<)  -tJ<K)  ♦  (PL(  J)  -PRR*OL<  J)-QR)  /  <4MX  C<l)*R5/PlOTS*2*a 
IF  (AHSF<U<<> )-i.E-Ql>  3**0  3, 1*03, 3404 

3403  U  ( K )  =  0 # C 

3404  IF(I-Il)fa016, 6105, 6035 
60  05  IF<UCK> >6605, 660o, 6605 

6605  NRC=1 

6606  IF  <V<<) -Z  <1?0)  >6607, 6004, 6607 
663  7  NRC  =  1 

60  C  •»  IF  ( A I  X  ( K)  -  Z(l*9)>  6r  15,6316,6015 
6013  NPC=1 

6016  CONTINUF 
IF<V2L>9907, 2031, 2000 

2003  VQ=<  \/Q«-V<K)  )  /2.3 
Ud=  <  UQHI  (K>  )  /  2. 3 

WS=(P(<)  /2.*mL3-VA30V£)«>Q3M\/  BLO-VQJfQT*  (V’l-VABOVZ)  )*TAU0TS 
WT  =  <P(K)/2.*(UL(  J)  -URR)  ♦  QL(J)  *  <UL<J>-RC*MQ>+3RM  *C*Ua-l)RR))/PIDTS* 
1  2.3 

GO  TO  21 32 

20 Ct  WS=< VOLO-V ABOVE) *. 3* TAUOTS*P ( K> 

HTsPOO*  (UL(  J>  -U<R)  /PIOTS 
2002  RHO  =  WS+WT 

HSX"  A IX  (  K)  f  ViO 
NIT  =  1 

IF  (KC.EQ.  1IM.  AN3.  K.E4.  LOK)  PRINT  3  90 1,  NC  , K,  NIT  ,  AI X  < <> ,  USX,  RHO, 

1  WS,HT,  \/BLO,VA30\/u,iJL(  J),UR? 

8811  FORMAT  (2X, 14, IX, 15, IX, 12, 9( IX, £12*4) ,/> 

1003  IF  (WSX>  9904, 1331,1101 
1001  AIX(K)  r  W9X 
GO  TO  3342 
334.  PRR-t.3 
ORsQ .0 
UT=3.G 

URRSU (<+l >  *RR 
PABO  VE -(  .0 
VA90VE  =  V ( M  > 

3342  V/BL. 0=V  AE'OV  i 
PL  (J)=PPP 
UL(J>  =URR 
QL(J>  =1P 
4BSQT 

K=N 

3343  PBLO=PABOVZ 
LL  =K”INAX 

lFCJUL)  >6003, 6031, 60C* 

6000  NRT=  1 

6001  IF  (V(LL)  -  Z  ( 123)  >  60  2,6333,6032 

6002  NRT=l 

6003  IF  (AIX(LL)  -  Z<149>)  6017,6313,5017 

6017  NRT=1 
6013  CONTINUf 


j 
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J35i  RC=R9 

IF  <bM)  3169  » 1007  »  H6r' 

9007  RR«mi*l)*X(I*2)>/2«0 
336]  CONTINUE 

3361  IF(VEU9911f7910»1361 
3363  VEL*C.1 

GO  TO  MCI 

C  ERROR 

9902  NK=3395 

GO  TO  9999 

9903  NK=3336 

GO  TO  9999 
99Ch  NK=  ’310 

GO  TO  9999 
9905  NK-3316 

GO  TO  99  9  9 
99C6  NK*3321 

GO  TO  99  9  9 
9907  NK*T?2A 

GO  TO  9999 
99 C  J  NKsiCOO 

PRINT  18  09  »I *  J,4IX (K)  ,WS,HT,9T 
880J  FORN  A  T  (30  H  ****NIGATIVr  FN“Ruf  F  9UN  )•  ••  • 
GC  to  9999 
9911  NK-3361 
999 3  NR*3 

CALL  *RPFR  (N3  t  )<) 

703  j  I1-I1*NPC 
620  3  I2*I2K(3T 

IF(I1-IHAXI610 J,ol30,620C 
620j  I1=IMAX 

61L  ;  IF(t2-JMAXI6Mlvo2U»62l2 
6202  12s JMAX 
62 t 1  CONTINUE 
RETURN 
l^NT 


SUBROUTINE  PH? 

0  I 

DIMENSION  UX(o2i 
1ANM6?G?  I  f  AM3(42i 
2AHG<62  Jl  )  f  THETM: 


(62C0)  ,*16200)  , 
,AME(6200),AMF(6200)  , 
f (201)  »5AMA<290)  , 

A  k  AliiAIAAA  t  r  Aur  <  O  A  A  I 


DIME  MSION 

X<103) , 

YC  200  » 

Z(150), 

IZ C 150)  , 

FLEFT  C20.0) 

DIMENSION 

TAUf 1301  , 

PL  (200 )  , 

U-  (200 

,  PRC200), 

JR(  200) 

DIMENSION 

I Ml  (1?)  , 

(AMC(2QO  , 

SIGC ( 23 

0),  G  AMC  (200), 

OX(IOO) 

COMMON 

Z 

,XX 

,  UR 

,PR 

,yy 

COMMON 

AID 

,AIX 

,  AM 

.theta 

,  AMX 

,  AREA 

COMMON 

31 G 

, BOUNCE 

,  10XN 

»  00  VK 

t  IKE 

,  DVK 

COMMON 

JX 

,0* 

*  - 

,r0 

,FS 

,FX 

COMMON 

OUT 

IP 

,PA80VE 

yPBLO 

,PIOTS 

yPPABOV 

COMMON 

°RR 

,PUL 

,  QOT 

»REZ 

,  RHO 

COMMON 

RL  ,RR 

,SIG,O3C0FL,SMITCM 

,TA9LM 

. 

COMMON 

TAtJ 

, TAUOTS 

,taudtx 

,u 

,  UK 

,URR 

COMMON 

UT 

,U'J 

,uuu 

,  tJTEF 

♦ 'JVM  AX 

,* 

COMMON 

vabove  ,vnio 

,  VEL 

»Vk 

,VT 

,  VTEF 

COMMON 

VV 

,  VVABO * 

y VvBLO 

♦  «2 

,  M3 

,  MPS 

COMMON 

MS 

,  MS  A 

,  MSB 

,  WSC  •. 

,-L 

,XLF 

COMMON 

<N 

,xr 

»  XL 

,ylm 

»  TN 

,YU 

COMMON 

ZM  AX 

,1 

,11 

,1s 

,IR 

,  IMS 

COMMON 

IMS  A 

,  I  MS  ‘1 

,  IMSC 

,  I  Ml 

» J 

,  JN 

COIMON 

J° 

,JR 

,  < 

,<N 

,<P 

,KR 

COMMON 

<RN 

,L 

»N 

,M  A 

»  MB 

,MC 

COIMON 

10 

#  MZ 

,N 

,  NK 

, NKMAX 

COIMON 

1<  1 

,  NO 

,NR 

,IW? 

COMMON  AM  A* AM )»AMC,AM1,AMt,AMF 

,  AMO 

e  *a  u 

I  V 

A  L 

1  N 

C  * 

OtQUlVALtNC: 

(Z,IZ, 

f>P03)  , 

(  Z  (  2)  y 

CYCLO  y 

(Z(?) , 

OT), 

1<Z(4),R>INTS)  , 

(  Z  (  5 ) , 

PPINTL)  , 

(7(b), 

0UI1PTZ)  , 

(7(7) , 

cstop)  , 

2<Z<8) ,PIDY)  , 

(zni , 

TMZ)  , 

(ZdH) 

,  jAM)  t 

C  Z  C 1 1> 

yGAMO) y 

3<Z<l?),GAMX>  , 

( Z( 1 3) 

,ETH)  , 

(Z(1L) 

,FFA), 

( Z  ( 1 5 ) 

y  rFB)  , 

4<Z(lO,TM0Z)  , 

( Z( 17) 

, TMXZ)  , 

(Z(13) 

y  XMAX) , 

( Z (19) 

y  TXMAX)  , 

5  CZ  ( 2 C  )  ,T  VMAX)  , 

(  Z  (  2  1) 

,  AM3M)  , 

(Z(2P) 

, AMXM)  , 

( Z  ( 23) 

yJNN)  ,  ~ 

6<Z<?4)  ,DMT  1)  , 

<Z<?5) 

,  F  -F ) , 

(Z( 2b) 

,  DTNA) , 

<Z<’7> 

y  C V  IS  )  y 

7<Z<23)  ,NPP)  , 

(Z  (29) 

,NPRI)  , 

(7(30 

,sc>, 

( Z ( 31 ) 

y  NPC  )  y 

8<Z<3?) ,HPC) , 

(  Z(  3  3) 

,IMAX)  , 

(Z(34) 

y  I  MAX  A)  y 

<  Z  (35) 

yJMAX)  y 

9 ( Z( 3o)  ,JMA X A)  , 

( Z  (  37) 

,KMAX)  , 

(  Z (  33 ) 

y  KM  AX  A)  y 

( Z (39) 

yNMAX) 

OEQUivAir  nc: 

<Z(4d) 

,  NO )  , 

(  Z ( 41 ) 

y  KOT)  y 

(Z(42) 

yIXMAX) , 

i(Z<4  1) ,NOD)  , 

(Z(<*4) 

i NOPR) , 

(  Z  ( 45  ) 

yNIMAX)  , 

iZ(46) 

,NJMAX) y 

2<Z<47) ,11)  , 

(  Z  (4  81 

,12), 

(Z<49) 

,13), 

<  Z ( 50  ) 

,14)  , 

j(Z(51),hl)  , 

(  Z( 52) 

»N2)  , 

(Z (63) 

»  N3)  y 

C  Z ( 54 ) 

,  N  4  )  y 

4<Z< 55)  ,MS)  , 

( Z  (56) 

,  No) , 

(Z(S7) 

»N 7)  , 

(Z(58) 

y  N8 )  , 

5(Z<  5  ))  ,N9)  , 

(  Z<6  G) 

,N13), 

<  Z (61  ) 

, Mil )  , 

(  Z  (  b  2) 

yNRM)  , 

6  <Z  (63 )  ,TRA(3)  , 

( Z  ( 64) 

yXNRG)  , 

( Z  <65 ) 

fSN)y 

(Z (6b) 

yOXN)  y 

7  (Z  (oD  ,P  ADEP)  , 

<Z(b6) 

,RAOET)  , 

( Z (69) 

y  R  AOEB)  y 

(  Z (7 0 ) 

yOTRAO)  , 

8(Z(71),REZFCT) , 

(Z  (72) 

,PSTOP)  , 

( Z ( 73 ) 

, SHELL) y 

(7(74) 

y BBOUND)  y 

9<Z( 75) , TOZ  0NC) , 

( Z  ( 76) 

ylCK)  , 

( Z ( 77) 

,S  BOJNO)  , 

(Z  (7  6) 

y  X 1 ) 

OtOUI  VALENCE 

( Z  (7  9) 

,x?), 

(Z(8H) 

»  Y 1)  , 

(  Z  ( 8 1 ) 

,V2)  , 

t<Z<82)  ,CAQLN)  , 

<Z<83) 

,V1SC)  , 

( Z  C  84) 

,T), 

( Z  (8 5 ) 

yGMAX)  , 

2<Z<8fc>  ,WSG 0)  , 

( Z  (87) 

,MSGX ) , 

<Z(S8) 

yS.iAOR)  y 

( Z  ( 89) 

yGMAXP) y 

3  (Z  (90  ,S1)  , 

( Z  (  9 1) 

,S2), 

<  Z( 9?) 

j S3) , 

( Z  (9  3) 

yS4)  y 
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c 

c 

c 

0 

c 


Tl 


4(Z(9h)  ,S5)  . 

5 (Z (961 ,S  9)  , 
7(2(130),  NFIT9), 
8  (Z  (1 33) ,  NPAR.1) , 


(Z(9«)  »S6)  , 
(Z09)  ,S10lt 
(  Z(  1 31)  ,NFITT>, 
(Z(t34)  ,N«»ART)  , 


(Z(9S) , S7) , 

(2(132) ,XFITR) , 
(Z  ( 135)  ,NPARR) 


(2(97) ,S«) , 


EQUIVALENCES  (201)  ,GAM(  ) ,  («»(40  0> ,  YAMC) 

1 ,  (9 ( 603)  t&AHft)  ,(P(801),GAN'l)  v  (»(10Q8)  ,3AM9Q) ,  <9(  1203)  »GAHE)  , 
2(P(l403  )  ,G  AMCC) ,  (P(160"),GANF)  ,  (0(1800)  « GA3G) 

EQUIVALENCE  CJR.UL^L^FT)  ,  (P9,9L,SIGCl 

cQi)ivALri^:  (xx  c2)  ,x(i) » ,  mm, him 


MIN  *  -2 
LOK  =  -2 
J31T  =Z  (1  44  ) 

JSTAPT=7  <147) 

Z ( 14 1 ) =C  . 

Z ( 14?)  =  C  • 

Zd43)  =r 

URTt  1 
N90=U 
°E  2=  i .  ) 

SENS."  LIGHT  n 
PI  OTS  - 1  •  r  /  PIK’JTI 
1C1  00  lu  3  J=1  ,J'1AX 
13  2  LA  1C(J)  =  :.  ) 

FLEFT(J) r 0  .0 
LAMA  (J)  - 
GAIK  J)  =  1. 

GA  ICC  (  J)  =  Q  . 
uA  ()1(J)  -C  . 

GA'iu  ( J)  =  V  • 

LAMP  ( J)  s  0  •  1 
LAMG(J)=C.  1 
Y  A  1C  ( J )  =  G  •  1 

si  go  < J)  =;'. .  i 
10  3  CONTINUE 
104  no  5**7  1  =  1,11 


8  * 
81 
97 

6? 


7 9o  , 

83 

84 
8 '3 

11)6 


J  =  JSTA*T 

K=I*1*  JOOTMMAX 

IF (  AMX(K)  )  )OQI),  97,31 

IF ( V  (K)  )  32,97, 97 

AMMV=0.r 

GO  TO  V* 

AMHY=A1X <K)*V(<)*JT/ )Y(J) 
MS  =  Al'X(K) 

IF(GAMC(J> >7931,83,83 
WS=HS»GAMC(J) 

IF(AMMY4 WS>«4,35,85 
ftMNY=-WS 

IF(CWIS)  103,39,19 
AMMt)  =  AMMY*J(<) 

AMMV  =  A'1MV*V<H 
WATsAIMY/ A  1X(K) 
l)MA9  =  A8A(K>*9AT 
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c 


9« 


99 

91 


It  / 
109 


219 

211 

2C' 
2  1 

2 1 

21  -> 
20  ;> 

21  9 


20  9 
212 


<*C* 
40  j 
4C  9 
419 


411 
40  3 

41? 

43o 

40/ 

409 


om  itMKi*nr 
fJHC'l*  A  If  ( k )  MAT 
)M1  »  =  A  9l(K>*  1 A  T 
UMflr  il(K)*uAT 
UMF9- AiIF  (  K)  A  T 
JI9G  1  =  A  10  (K>  •  3 A  r 

DEL*-  i-A  I  X  t  <  >  /A  |<  «>  ♦  tU,<)  **?«V  (  <>  *• ’>  /?. 
MS-(U(<)  (0**21/ 2.  . 

t.TH*ETH»AH  IV*  (A[<(<>  /A'lX  (KJ  f  H9) 

*****  *' A Sf.  HASLiFT  TM£  <0  TT  0.1*  *  *  *  * 

rEZ*l  . 

7(1421-1. 


'-0  TO  IC  7 
AM  9  VO. 

A  M  1 Y  =0  ,  f  $’■ 

i)M  A  I  '  9  . 

)MO  1  =  j. 

L)f109-  1  . 

JM  IV-  0 
OME  1  =  j 
IMF  1=0.  r 
0909  =  3  .  C 
AM  '111  -  0  . r 
i.ltl"9  =  0,  u 

•10  G4G  j  =  J  S  I  A  <  T  ,  [  ! 

L  =  K+  1  I  AX 

a-?fa=  i  ,r 

IF  (K.50.  7  52)  LOK  ~< 
\i:  l=  .o 
FS=0  .  1 

IF  (  J  MAX-  J)  211,211,  '>*.! 
VEL  =  1  •  j 
00  TO  2t  9 

IF  <  AMX(L)  )  219, 213,  7 1-* 
IFUiKOO  )  ’l  i,’lo,  ,f  ' 
VATOVl  =  V  C  L  » 


lO  TO  21? 


IF  (  A  MX  (K)  )  ?C  s,  *  J->,  9 

VA  10  VE=t  .  0 
GO  TO  212 
VA 10  VE  =V  <K) 

GO  TO  ?1? 

VA1.)  VE=  (  )Y  ( J*  1)  *7  (  k»  ►OM  J>  *V(  .  »  >  /«  Oy  (  J'  *)  Y  (  J,  i»  ) 
CD  ITIUUC 


FS=  i  .  1 

IF  (  I  MAX-  I )  -,12,412,4  c  > 

IF(AMX(K4l))411,.,lt,4C0 
TFfAMXPO  »°7 

UR?=U(<* U 
>0  TO  4tiA 

IF  C  ft  I  X  (K) ) 403,43  5,4i  , 

U9  '=  '  .0 

GO  TO  Vf  9 

FS-t. 

UW=>  s u  <  <| 

GO  TO  4C9 

U9*,=  (  JX  ( I  ♦  l)  *U<0  ♦  1*(I)*U(<M)  I  /  (IX  (I)»Ox(I  +  lH 
CO  ITINU. 
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109  IF  (AREA)  9931*  331*547 
391  IF(YABOVE) 300*304, 10? 

362  IF  (A  MX  (KM  990  J  *  334*333 
303  M«K 
MHsL 
JJ*J 

GO  TO  3C  7 
3 0 •«  AMPY  =  0 •  0 
9MAT  =  0 
0H3T  *9 
0MCT-=0 
l)M0T  =  0 
OME  T  =  0 
OMFT-O  #0 
OMSTsO.: 

33  3  AMUT  =  0.f 
AMVT^O.C 
OELETsO.Q 
GO  TO  5r  1 

303  IF(VEU99Gt,305,  304 
303  IF(AMX(l)  I  3933,  3J4,33o 

306  M=L 
MH=K 
JJ=J*1 

30 7  IF(VcL)G13), 6130, 6140 
613 j  WSAs0.3*(V(L»+V(<l I 

WSB=mL)-\MO>*JT/DMJ> 

IF(A9S(V(MII*9T.GT.0.5*OY  (JJI  )  wS9  =  0. 
VA90V/E=WSA/«1.«-XS9I 
6143  AMPY  =A  1/  (MI*VA  10V£/OY(JJI*  IT 
6141  WAT  =  AMP f /AttX (Ml 
OMAT *AMA  (Ml  *RAT 
0M9T*  AMP (Ml *RA  T 
UMCT*A1C  (M)*PAT 
UM3T-A  10  (Ml  #r*AT 
□METsAlt  (M1*°AT 
OMFT*AMF(MI*P.AT 
f)MGT*A«1G(MI*JAT 
IFWEL  .GT.  ).)  GO  TO  331 
IF(AMA(Ml/AMX(  II  .LT..Or  l.AMJ.A  1A(M4|  .LE.O.lOUTsQ 
IF  (AM  |(M )  /AMX  (  U  ,uT..  31.AMJ.A  HIMMI  .  Li  .  3  •  I  01 OT*  3 
IF(AMC(MI/AMX(  II  .LT.,0».  1  .AM).  AICMMI  .LE.C.IOICTO 
IF  (  AMT  (1 1  /  AMX  ( “11  .LT..0  1  .AM  I.AMTCIMI  •L*.'*  •  101  )Tr  3 
IF ( AME(Ml / AMX (Ml • L T. • 0, 1 . AMO. A  IE tiM I . I- •  3 • 10 1ET*1 
IF  (AMF  (HI  /AMX  (  II  .L  T.  .  O'.  1 .  Af|  J.  A  IF (MM)  .  L“ .  *» .  I  OIF Tt  0 
IF(AMG(MI/AMX(  II  .LT.,0  1 .  A '10.  AHG(iM  I  .  LE  .  '  .  IDiGT  *  3 
AOELH=iJMAT»OfHT  ♦  OMCT  tfVlOTOMuT  f  OMFT  ♦  OMGT 

ao:lm*ampv/oelm 

OMAT s(J  1A  T*  AOEL 1 
OM'lT =Q'1PT*  AOclM 
UMGT*QMCT*AOfl  1 
OMIT  *9:10  T*  AOtL  1 
OMET=(3Ml  T*  AOEL'I 
UMFTsQMF  T*AO£lM 
OMGT  *  DKGT*  A 1ELM 

501  IFdJPRIECO, 534*5  32 

502  IF(4MX(K)I  3933, 53**533 

503  M=< 


• 


51 « 


5  J  * 
610  J 


9983 

999  j 
9991 
6111 


1 

982- 


HM-KU 

N=I 

GO  TO  5C  8 

AM'IPO.l 

JMA->  =  q 
0M3>=n 
3MO^r3 
IM1R=0 
IM_’»  =  9 
CMF»<*3,C 
OHf.OO.f 
AMtJ>=u.l 
AH -*=0.1 
OfLtiP-  J#  a 
GO  TO  t 
iFcrsi 

IF(4MX(K*1>) 9904,-.,  <?«*,£•  7 

r=<*t 

HH  =  K 
N*  I  ♦  1 

IF(F  >61 JU«ul3Jt jIIC 
WSA  =  2.6* 

ws  i*<u(khi i  •  sit ✓  nir c  n 

IF  CAHS(U  (Ml )  *QT.GT,f)¥  ('•)  *0.51  49H*3. 

UR>*SS1/  C 1  •♦WSll 
OF‘|  =  A  1<<9I  /TAU(N) 

IF  (GAD  9  I91,  H13.9  <9 
CA  *T  *  V  (2) 

GO  TO  3091 
CA  **T  =  l.r 

AM9P  *  UFJI/PT  JTS*CAPT*IIRP 
*>AT  =  A  (  |(  / A  urt) 

DMA  >rA  It  (  H I  • ^  AT 
JM  If  (9l*V\r 

JH0*!*A1C(MI»PAT 
JH  )>*A  10(H)  *JAT 
JM"  ?*A’ie  CHI  *oAT 
OHFRsAHF (H|*’AT 
OHOPsA  1MHM-MT 
IF<r$.r,T.0.l  GO  TO  t 

IF  (AHA  (Ml  /\H*  (  D.LT..0  1  •  A  I  J.  A  1 A  C  111  ,LC  .  0  •  I  H  1 A*  * 

lF(AM4(Hf /ANA  (9|,LT««Qf  1.A19. AIK i9|  .Li •:•)*)  DU*  ). 

IF(AHCCM) /\H<MI  ,L  T.  .  ;*  1.4ll,MCt1D,L',  .ioic’*:* 

IF  (AM0CHI/49XMI  ,lT.  .  0  1  •  A  ( J.  A  iO  (MM)  ,l'.3,inO^), 

IF(AH£(H»/AHX(HI.LT..  0  l.A.IO.AiK  111  I  .. 

IF  (  AiF  Ml  /AH<  (  1»  .cT.  .  o,  1  .  AM  ).A  IF  (HU  .Li*  1 .  I  01F»O. 

IF  (  AHG  (H  I  /  AHX  (  II  ,LT.  .  3  !  .  A  IJ,  A  IGCMI  .  \.Z*  "  •  »  0 7. 

AoeiH*  jhapo*io>*  hc»»o*'oo« 1  ifromo? 

AO^LHrAl’MP/Al-L  1 

OHARsflHAR*  AOiLi 

DH9  **0  18°*  A0:L*1 

OMCRs  11CP*AOrL  I 

UH  l‘»*  390KMOEI  1 

OH*:  »  =  J9tP*A0:L  1 

0MFPO9F0M0Cl.fi 

CMuROMGR*AQEl  I 
IF  (  AM’IPI  16 f  7*»  1120 
IF  (GA1C(J))7‘**7**»88f?l 


tj&s  t 


7*% 


1  • 
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8821  IF  <FS>t  l?  J.bl^Q,  7«* 

6123  IF  <A‘1X<H>in'H03vr«»,7'. 
7«*  JTAG=9 

2  IFC AP°02,*,4 

3  ITAG=t 
WSUAI’V 
AHPY*<J.O 
GO  TO  o«. 

*♦  ITAG*0 

b«*  IF<AMHY)9,?,v 

5  IFCGAlOCJI 1 7,o,5 

o  MSsAMXCKI 
GO  TO  ll 

f  ms=am<cm»gai:c  j> 

GO  TO  11 

i  IFCGA’IC*  J>  IT.  ,1,1 

4  WS-AMX(K|  ♦ 

GO  TO  11 

11  N  S  =  A  n  X  ♦  iiA  1  •!  I  J I  ♦  A  rt  1 V 

11  tfS  A  =  A  I0  f  ♦  A  1HP 
1>  IF(WSA-W«;>?5,75,IT 
13  PATxM'J/w'-.A 

IF  (lTAG.fcQ.il  .,0  TO  ^51 
AMPY*  AnFVMAT 
39AT*  JIAM’AT 
3M  IT*  1  1MT*  1AT 
010T  =  11T  *•  >Aj 
,10T?)  10 T*  ‘AT 
jMITOIf  T*-»AT 
OHFTnVIF  T*  >A’ 
fHGT*  H(.T*  *t  f 

951  IFC  jTAi.tO.l)  '*')  TO  79 
Ah  IP* A  IMP*  »AT 
OH  A*?*  )  Ifc 
i|H  l^  =  0  1'  J*  iAT 
0MC*<?9  K  "•  »AT 
I'fnix^lG-C  *AT 
JM£9*T11  *?•  CAT 
UHFpxDlFo*  >AT 
OHG  R  *  0 1f»  R  •  A  T 
7j  IFIJTAGl  19,73,1* 

7  3  NSC*A;1MP 
!-»  IF  C I  T  AG)  15,7''!  1,15 
l?  AMPYrwSB 
iTAGrO 
GO  Tf  4t 

to  lFCFG»7t  ,17,76 
7o  WSCxA'IlP 
GO  TO  4C 

17  IFCr»l-IMA<m,l1.00‘?*. 
ii  <j-> jR*«m*i>/'*." 

GO  Tf.  >c 

19  U*3<MJC<»t>*,J<<*2)> /?. 

2i  IF  CUPPRI  39,39,21 

21  IF  CuAI)  919%  »o*»,9J9/ 

9992  Cl  ^.T  *  XI  X»ll  »»•  i 
t.O  TC  1994 

9993  CA'*T  *  1,0 


999**  URRR  =  URP  R/TAtJ<I*l)  *  AMX  <K«-1I/»10TS*CART 
2?  IF<J-JSTART)99J1,23,24 

23  V9LO=VCK*1)/2.0 
GO  TO  26 

24  KP=K*1-IMAX 

VPLO-  (VMK*1>*V<<P)  )/2.L 

26  IF<V1L0>  25*38,38 

25  \ZflLO=AiX  (Kn)/<9V(J»  ♦V9L0*0T 

27  IF  CVlL ) 2  8  »  29, 29 

26  VA9=V (<♦ 1) /2»  3 
GO  TO  21 

29  kP=K*HAX*1 

VA9=(\MK*i>*\M<P))  /2.Q 

31  IF(VAl)  36,36,3) 

ij  VA9  =  A1X(K*l)/OT  <  J)  *VAB*QT 

32  WS= AMX  CK  *1 > 

3^  wSA=URRR-ArtMP-tf9LO»VA8 

34  IF(WSA-WS)  77,77,  35 

35  AMHP  - ArtMP*  9S/ USA 
pAT=Wb/WSA 
UM4R=08AR* W 
'JM3R=0MRR*  RAT 
CMCRsf).9CR*RAT 

OH  OR  =  090  R  *  R  A  T 
9M£R  =  0'1f  R*RAT 
0HFR  =  9MF  R* RAT 
0MGR=9MGR*RAT 
If  JT AG=  i 
WSOsA.iflP 
AM9P=G  •  l 
GO  TO  2 

3b  WS=AfX(k+l> 

37  WSA=URRP-A9MP-\/9L9 
GO  TO  34 
3-1  VBL0  =  0.0 
GO  TC  27 

39  UPRR=0  .0 
GO  TO  22 

40  IF(VF.L>7  10  3,41,7300 

41  IF<FS>  42,4  5,<*2 

42  KP=<  +  I*1AX 
URT-IJ(KP)  /2.1 
GO  TO  45 

4  J  KP=k*IMAX 

URT=(ll(Kp)*U(KP+l)  )/2.l 
45  IF (UfcT)4bf 46,7 t 
4b  UPT  =  0.0 
GO  47 
70  =K+lrlAX 

IF  (GAM)  9997,  1996  ,9397 

9996  CART  =  X C I >  *? . 3 
GO  TO  9998 

9997  CART  =1.0 

9999  URT  =  URT/TAUm*AHX<K°> /PIJTS*CART 
4 7  IF ( Jfl-JHAX)48,49,9910 
49  KP=K*If1AX 
<L=KP»IMAX 

VA8T=  <\MKP>*\/  (<U)  /2.  0 
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l 


GO  TO  51 

44  KP*K*I8AX 
Kl*KP-HMAX 
VA8T=V(KP)  /2.0 

51  IK  C  VAST)  8810  *71, 72 
881?  IF  (AMX(K)>  9111,71,71 

71  l/A9T=3.l 
GO  TO  6C 

72  VA1TsVAGT*1HXCkP)  /OV<  J*l)  **)T 

52  IFCGAMCUMM  34,51,51 

51  WS=AMX<KP) 

GO  TO  ib 

54  MSsAMX  (KP)4GAf11(  J»l) 

5*  WSA  =  VA1T-A1PY*'JPT 
GO  TO  57 

6)  IF(G*1C(J+1» ) 51,61 ,51 

11  hS  =  AMX(KP)*uA'10<j4.l) 

GO  TO  5* 

54  MS=AMX(KP) 

56  WSAs-AMf  V4-  J^T 

57  IFC4SA-VS)  70M,7 JO?, 

5»  AMPY=A  1PY*  45/ 41 A 

PAT-WS/4SA 
OH  AT  =  TiAT*«AT 
•JM  1T=  J  II, T*  >AT 
OmCT  =  0 if  T*  >AT 
OH  lT-=0  1DT*»AT 
LMF  T  *  HE  T  •  1AT 
OMFTOHFT*«AT 
OHiiT=OHGT*  >AT 
7tfc  AHH°~  W^C 

304  IF  <AMPY>  6834,  8831, 6617 
0831  IF(  JMAX-J)  1911, 118,68’ 

883 ^  KP=<*IMAX 

863  j  IFCAMXCKPI  I  140  j, 4127, 311 

883/  IFUMPf/<T*U<  I>  *  JY  C  J4- 11  )  -T1Z01P  1  883  8*  *1  4,316 
663-1  AM°Ys3.C 
UH A  T  s 0 
OH  !TrO 
OHCT=j 
DMQT-1 
OMFT  =  0 
OMFT -0  • 

OMGTO* 

GO  TO  8M1 
8874  COHTIHUT 

8831  IF(AHXIK))  44. 1* 88<*rf,  J2-. 

884J  IF  C  -  AHPY  /  C  TAtl  C 1 1  *  I Y  <  J»l-T0Z1O  8141,  V5,  1?5 
8841  AHPYsO.t 
OHATO 
OMIT  *0 
UMCTO 
DHOT=0 
OM"T  =0 
OMPTr'i, 

UMGTifJ, 

GO  TC  18  31 

318  0CLM  =  GAr!n<  Jl  »A1MY-  AM^Y 
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3 2?  IF (VEL) 990 l, 324,  52 3 
323  WSsim>**2*-V<K)  **2 

tTH  =  £TH-AMPY*{  UXU)  /A9X  (KM-WS/2.) 

AMtJT •=  AiP  / *«J  C K ) 

AMVT  =  A'lP  ( <) 

C  A  S3  HAS  LEFT  THE  TOP 

690  u  PCZ=1.0 

Z  <  14  1)  si. 

GO  TO  326 

32*  AM  JT  =  AHP Y* J( K) 

AMYT=A9PY*Y(<) 

GO  TO  32 L 
325  COfITIMUF 
(3831  AMOTsAf'PY*  J(L) 

AMY  T -  A9P  Y*  7  (L ) 

OtL  -1=GAMC  U)-A'1PYf  AMM  7 
32b  IF(  AMPY)  327,328,329 

327  OEL:T=AIX(l)/A1X(L)+(U(L) **2^V(L) **2)/P. 

GO  TO  323 

32  5  IF { AMM  H  329,333, 331 
329  OELET=)LLEl 
GO  TO  33  3 

333  IF (GAMC(J) 5331,332,332 
331  DELE  T  =  SIGG(  J) 

GO  TO  33  3 

33?  IF (AMX(K) . EQ»  9 • ) GO  TO  333 

OELETsAlX  <<)/A.1X<K>  +  <UtK>**2+V<K>**2>  /2. 

333  SIGMU=FLEFT(J>>A1MU-AMUT 
SIGMV  =  YAMC(J)  ♦AMMY"A'1VT 

OELEKs  jAHC ( J)  *SIGC ( J) ♦A9MY*3£Lt9-AMPY*9ELET 
609  IF(AMMP)  >*843,518 ,9844 
884,  IF ( I  MAX-  I) 9911,518, 8946 
884y  IF  <AHX(K*-l))99J0,9946t?18 

884  i  IF  (AMMP/  (T  All  ( I ♦  1)  *  )Y  {  JM  - T9Z3* £)  9847 , 51 9 , 5 1 8 
8847  AMMP=0.r 
OMA9-1 
CMP? =3 
OMC?=3 
9M9P-0 
l)ME9=  3 

‘JlFprQ. 

OMG9=0. 

GO  TO  51 9 

8843  IF (1-1)9911,512,8948 
8843  IF  (AMXFKM  8900,9849,51? 

884  9  IF (-AMMFV  (TAU ( I ) *0Y  <  J 1 ) -TOZOME)  8950,512,512 
8853  AMMP  =  0,n 
0MA9- J 
DM9?  =  0 
QMCR=0 
QMM?=0 
OME?=3 
CMFP=C. 

OMGP=0, 

GO  TO  519 

512  OtLM=92LM-AMMP*MX  «KI 
8828  AMO  ?  =  AMMP»lJC<fll 
am\/?=ammp* 
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GO  TO  525 

51«  OELH=OlLM-AMMPfAMX<IO 

521  CONTINUE 

52?  IF  IF 55)9905  >524*521 

523  WS«U<tO**2*V<K>**2 

IF  (AMX<K>  .EQ.O.)  GO  TO  524 
ETHsETH-AM'IPMAIXtK)  / AMX IK) +WS/2. ) 

AMUR*AMPP*U(K) 

AMtfR=AMMP*\MK) 

6901  PEZ*1.3 

C  ♦•♦♦MASS  HAS  LEFT  THE  RIGHT**** 

Z(lf2)*l  .0 
GO  TO  525 

524  AMUR*A:imp*U(KI 
AM  V  R  -  A  MM  P*  I K ) 

52 v  SIGMU=SIGMU-AiUR 
SIGMV-sSIGMV-AM'/R 
52o  TIC* o.o 

527  IF(AMMP)  523,529,529 

52  9  nELER  =  AlX(«-l)  /AMX  (K*l>  ♦  <U <K*1 >  **2f VC K* 1)  **2)  /?. 

GO  To  537 

52  3  IF(AMMY)  533,531,531 

53  j  OEL:IP  =  OELE3 

GO  To  5? 6 

531  IF ( G AMC I J ) )5 52, 5 33, 533 
53?  OELPP=SIGC(J) 

GO  TO  53  6 

533  IF(AMPY)  535,535,534 
53-*  )ELER=OELET 
GO  TO  576 

53 v  IF(AMX(K)  .EO.  0. 1  GO  TO  536 

oeiei<=aixi<>/amx  (<)♦  <uoo  **2«-vu>  ♦♦2>/2. 

53b  TIC=l.j 

53/  OElEK  =  UE  LEK-AMM°*OcLER 
MIT  =  2 

IF  (MC.EQ.MI.I.Af'IO.K.EQ.LOK)  PRINT  A0Q5,  MC ,K»NIT  ,  AMM®,OELER, 

1  r»  AMC  (J)  ,SIGC(J)  ,  AHMT,0ELE9,A3PT,0ELET 
aCC  v  FORMAT  ( 2X  ,  14 , IX , I  5 , 1 X, I ? , 9 ( IX , E12. 4) ,/ ) 

533  IF<TIC)99G7,539,533 
55  J  WSOELER 
GO  TO  999 

53  1  WSSG • 

IF (A  X(k> .GT.3.) WSsAIX<k)/AMX(K>  *0.5* IJIK) **2*V( <) 

991  IF(0FL1*)993,543,543 
993  IF ( AMX ( K) *1»E"6*0ELM> 99 G6 , 997 , 99 7 
997  UELM=0.G 
GO  TO  543 

54  3  ENK=AMX<<) *WS*OEL£K 
541  U(<)  =  (SIGMIJ*AMX(<)  *U(K)  )  /QELM 

IF  (AOS  CU  C  K» )  -1  .e-2  I  15  01,601,601 
160 1  U(K) =0 • 

6  31  V  (K)  =  (3IGMV*AiX(K)  *VIK> )/OELM 

IF (ARS(V(K))-i.£- i) 1731,1732,1702 

1701  VI  K)  =0  • 

1702  CONTINUE 
IF(I-It)603, 6634, 6604 

66  34  IF(U(K>*V  <<)-Z(l2J)»  AIX  <K) -ZI149)  > 6605,6606»ooG5 
660  >  NPC=  1 
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V 


* 


66  Oo 
6CT 
54? 


200?’ 


65  0  0 
54/ 


670  J 
67C1 
67C  2 


CONTINUF 

WS  =  U(<>**2*V  <M**2 
AIXCKI *t NK-OEL 1*N$/2. 

NIT  -  J 

IF  (NC.FQ.  UN. ANJ.K.EQ.tOK)  PRINT  6005,  NO  ,  K  ,  NIT  ,  AI  X(  K)  ,ENK»OELH, 

1  WS.OZLEK 
AMX  (  K)  *0EV1 

AM  MM  =  AMA(«>  ♦0UA9-0MAT-0MAR  +  GAMA  <  J) 

AM/3  (K  )  =A  M8<„)  ♦  OMBM-DM BT-OM1R fGAM  3(  J) 

AMC  (  K)  =  AMC(K)  ♦1MC5-0'1CT-OMCR«-GAMCC(  J) 

AM  O  ( Kl  =A  MO (K)  ♦  <1M09-OMOT-OM‘3R*GAMOD(  J> 

AME  ( k )  =  A  ME  ( K)  ♦  )ME5-OMET-OMER*GAME<  J) 

AMF  (K)  =  AMF  (K)  ♦OiMFS-nMFT-DMFR+GAMF  ( J) 

AMG(K) =AMG (K) MMG3-DMGT-0MGR*GAMG  < J) 

IF  (  A  MX  (K  ) )  9930,233  7, 544 

AIX  (M  =C  .0 

AM \ (<)  =0 

AM9 ( K )  =C 

AMH ( K ) =f 

AM  )(k) =C 

AMZ  (<)  =C 

AMF  <  K ) =  t  . 

AMG  <  K ) - C • 

U  (  K)  =  ') .  0 
V  ( < »  =  0 . 0 
G  A MC  <  J)  ~  AM  IP 
GAflA  ( J)s  OMAR 
OA  1 1  (  J)  =  I0M  -OR 
bA  ICC  (J)  rOMC'1 
GAMD!)(  J)  =DMDR 
GAME ( J)  =  !3MZR 
bA  3F  <  J)  =  ')MFR 
GAMb ( J)=  OMGR 
FLZF  T ( J) r  AMUR 
YAMC ( J) =  AM  VR 
F.I  GC  (  J)  =  OELEP 
AMMY  =  A  MP  Y 
UMA9-9  MAT 
.JM33  0  1BT 
OMP.  Is.Hr.T 
DM  90=  T)  MO  T 
OME  1  =  ')  IF  T 
DMF  9- DMF T 
0MG9  =  01GT 

ammu=amu  r 

AMMV-A1VT  ...  _ 

cel-:b=3Elft 

k=k+imax 

lL  =K  - 1  *JA  X 

IF  ( U  (LL)  +V(LL)-Z  (120)+AIX(LU-Z  (1491  )  65  00,547,6500 

NRT  =  1 

CONTINUE 

11  =  I1«-NPC 

1 2  =  I  2  ♦  NP  T 

IF  (I  MAX- 1 11670  0,5701,67  02 

I1=IMAX 

CONTINUE 

IF  C  JMAX-  12)683),  o3 3 1,6802 
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460J  12* JM4K 

6601  CONTINJ: 

6602  GO  TO  566 
99C1  NK*3L9 

GO  TO  9999 
99C2  NK  *  2506 
GO  TO  9999 
999 w  NK*3?2 

GO  TO  9999 
99C  3  NK*3C5 

GO  TO  9999 
99J4  NK*5C6 

GO  TO  9999 
99C5  NK*5G9 

GO  TO  9999 
990o  NKS51 T 

GO  TO  9999 

9911  NK*8631 

GO  TO  99  99 

9912  NK*1G5 

PRINT  iCr6,If  it  6  it  C  K>  *  A  91(0,199(0 
80 0 o  F0RNATI2I5,6CH.9> 

GO  TO  99  99 
990  9  flK*  17 

GO  TO  9999 

990  1  UK*  22 

GO  TO  9999 

991  j  fl<*  4T 

GO  TO  99  99 


9907  N<=539 
9999  N»*4 

CALL  E9PERIU»,N<J 
5G1  SU  1*o.  j 
200  -  L As  1mA 
L  8  *  lHtl 
LC»IHC 
LO*lHO 
L£*lHl 
lFsIhF 

L(*xlf*G  _ 

uo  2:01  1*1,11 

K- I  ♦!  ♦JP0T*IMAX 
OO  2390  J*)STA<T,I2 

IF  (AMA1KI  .LT.0..4N0.4NA  IK)  .  wT.- 1  .£- 1  v)  AHA  IK)  *9. 

IFIAH9(K).LT.0..4N  ).  AN9  IK)  .GT.-  1.  E-  15)  A'lBlKI  *i. 

IFIAMC(K).LT.O..An  ). A  C  CO  .GT.-I.r-15)  A9C<K)*C. 

IF  IAH0IK) .IT. 3.. AN  ). AHO  IK)  .iT.-l.E- 15)  A9DIK»*C. 

IF  IAHE  IK  )  .LT  .  9  •  .AN  J.A  M‘  (K)  .wT.-l.E-15)  49£IK)*0. 
IF|AMF(K).lT.3..4N0.4HF  IK)  .GT.-1.E-15)  ANF  IK)  *0. 

IF  I4HJIK  ).LT.0..AN  3. 4Hv>  I K)  .GT.-l.e-15)  AHGIK)*Q. 

IF  lAf14{lO.LT .9)  P»I9T  9201,1*  J,LA, 49400 
IFI4H9IKI  .LT.O)  PRINT  9?C1 ,  I,  J  ,L  1,  Alfcl  K) 

IF  (4HCIKI  ,LT.O)  PRINT  92.  1,1 »  J,lCt  A1CCO 
IF  1 4H0IK) ♦  LT. 9  )  i»M  lT  I? Cl,  I,  J,L9,AH0lK) 

IF  1 4HEIK)  *LT.  0)  PRINT  92T1, I, J.LE,  ARE  IK) 

IF  |4NFIK).LT.O)  P-»INT  N?C)«IiJ,LF, A  HF  IK) 

IF  I AHGIK)  .LT.  3)  O  RINT  9?l  1,1  <  l,LG,  ANGIK) 

9201  FORNATI26H  NEGATIVE  IASS  FGUNO  AT  I*,I5,THj*tI$y41,l 5rt  MATERIAL  MA 
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ISS  =  ,U1.  *t> 

TOT-AMACK)  ♦  AMi)*K»»  AMOCO  ♦AMUCK)  tAMf  CO  ♦  AMF  CK>  fAMGCK) 
IF  CT0T.lfJ.il  (,  l  TO  1  >0 
tR^=  TO  T-  AM  A  C  \> 
r  =  l.-r^  /7  )T 
AMA  C  K  I  =AMA  CK  >  *f 
AM  I C  K)  =  AIIH(K>  *r 
AMOCM  =  AMC  CM»f 
AM  ) ( K I  =  A  HICK) *F 
AM*CK)sAMt  CO  *F 
AMFCO  -AI1F  (O  •c 
At)'.  (  K;  =  A'U.  *  K)  *r 
1  5  T  1 F( A  MX (< I  )  '0UU, 2)01,  »»»  i 
201  ♦  1FC  AMXCM  /  (  T.VJC  I)  *  V  (  J)  l-l.E-5  >  201U  ,  2"  1  A,  ?0  j  4 
?0t.  MSMUOC)  ••  »♦¥!<)  ••?)/?.  0 
MldC)  =Z(  1  JC)  ♦MIX  (  O 
WS  =  A T  X  (K  )  ♦  AM<<<>  *M0 
/(DU-7C1  1 1 » ♦  c ; 

Tm-.CTm-WO 

*  CIO?) -Z  Cl  )2I  ♦AtlXC  <)  *UCK) 

/(1U3)  -/ C  t  13)  ♦AMXtO*\MlO 
A  M  X  (  < )  rt  .  - 
AI X ( K)  -t  .0 

i*  c  ki  =u.r 

AMA(X ) ?c . 

AMOCO  "f  . 

AMCC K) =  (.  . 

AMOCO =(  . 

amcco  - 1  . 

AMC(0={  . 

ArljCO  «t. 

Trti  T  A  ( <  )  rL  . 

U C < J  -O.r 
V  C  <»  rU.l 
C.O  TO  2110 

200  IF(AIXCM)  »0T*,2J3T«?f  0 
20C-*  SU1*SU'UAt  <C<) 

AIXCO  -l  . 

PPIN1  Tt‘  0,1,  J 

920  j  ro»MAT(c’  h  z  «>  it;  ,r.r  ai  i,j=,?r?> 

00  TO  <0  j 2 
2UJ  K*<MMA* 

20C  1  roiTpur 
200  3  _THr : Tm-SU  1 

zcioai  szci  i*o  ♦  ;  n 

8C3*  Mr.TlIPM 
din 


SUBROUTINE  eniT 

01  HEN  SION 
DIMENSION  MSG (6) 

DIMENSION  AIX(6230)  ,AHX(b200)  tP<6200)  ,'J (62001  ,V< 62001  , 

1AM* <6200)  ,AM9(623f)>  , AMO <623 3)  y  AMD <6230  yAME(52C0>  yANF<b200>  « 
2AMG(6?!)G  )  yTH"TA(6?00)  #0V  <?fl  J)  ,  XX  (101)  f  Y V  C2C1 ) 

DIMENSION  X<100),  Y<  200)  •  Z  (15  0 ) »  1/(150),  FLEET  (200) 

DIMENSION  TAU  (10  J)  ,  Pl(201),  )L(?00),  P*(23D)y  JR(?0C) 

DIMENSION  (Ml  ( 16 )  ,  YAMCiZU^),  SK,C(?^0),  GAMC(203),  OX(ICO) 


COMMON 

L 

,  XX 

0'JK 

,PB 

,YY 

COMMON 

AID 

» AIX 

t  AM 

,ThETA 

»  amx 

,  AREA 

COMMON 

jig 

{'BOUNCE 

,TOXN 

,90VK 

,  IKE 

,  JVK 

COMMON 

)X 

,OY 

♦  S 

»PS 

,FK 

COMMON 

J'JT 

.P 

yPABOVI 

,°9lO 

,°IDTS 

, PPABD V 

COMMON 

y  PUL 

y  )OT 

tJC 

,’dZ 

y  PMC 

COMMON 

RLyR’tSlNyli)  .fjPL  »SMI  TCh 

«  T  A3LM 

COMMON 

r  A*J 

» TA1J  JTS 

,  TAUDT X 

t'K 

,URR 

COMMON 

JT 

,  uu 

,UUU 

,NT£F 

,'JVMAX 

,v 

COMMON 

J\  )OVE 

» VO-  D 

♦  VtL 

♦  V< 

,  VT 

,  VT-F 

COMMON 

VV 

i  WAIT  V 

,  /VPLO 

•  ^2 

♦  <3 

,M»S 

COMMON 

MS 

i  MSA 

,MS9 

»  N  S  C  ‘ 

♦  <L 

,  XL? 

COMMON 

XN 

.  XP 

t'l 

,ylm 

,  YN 

,YU 

•COMMON 

/MAX 

,1 

♦ II 

*  I  N 

♦  I* 

y  I  MS 

COMMON 

(MSA 

iIWS  3 

ylWSC 

,  TW1 

,  J 

•  JN 

COMMON 

JP 

t  JP 

♦  < 

♦  *N 

,<P 

y<* 

COMMON 

\MM 

»L 

t  M 

,  MA 

,  19 

,MC 

COMMON 

n 

.n: 

♦  MZ 

*  N 

t  M< 

i NKMAX 

COMMON 

•M<  1 

t  NO 

*  MR 

,T*2 

COMMON  AM  A,  .tM  )  y  AM  Cy  A  M I »  Atl£  ,  A  1r  ,  AMO 


EQIJI/ALENC 


OKQUIVALFNCc 

(Z,!Z, 

PROd)  y 

(  Z  (2)  , 

CYCLI  )y 

(7(3), 

DT), 

l(Z(4)y  PRINTS)  , 

(  Z  ( 3 )  y 

PRINTL)  y 

(  Z  (  6)  y 

OUMPT?) y 

(7(7)  , 

CSTOP)  y 

2<zm,Pif)v> , 

(ZO)t 

TMZ)  y 

<Z(10) 

»  GAM)  y 

(  Z  <  1 1 ) 

, GAM 9) , 

3<Z(l?),GAMX), 

C  Z  (  13) 

,:tm)  , 

( Z ( 14 ) 

♦  cfA) , 

(7(15) 

y  FF9)  y 

4  (Z(16)  ,TM07)  , 

(  7(17) 

y  T  M  X  Z  )  y 

(7(18) 

yXMAX), 

(7(19) 

,  TXMAXJ  , 

5(Z  (20) ,  TYM  A/)  , 

(  Z(  ’ll 

yAtOtt)  y 

( Z  (  27 ) 

y  AMX  M  )  y 

(  7  (  J  3 ) 

yONN)  y 

6(Z(24),DMIN)  , 

(Z(?5) 

»FEF)  , 

(  Z  (  26 ) 

y  0TN4)  y 

<Z<27) 

yCVlS), 

7 (Z(28)  ,NPR)  , 

<Z<?9) 

yNPRIl  , 

( Z( 39) 

yNC)  , 

(  Z  (  3  1 ) 

yNPC)  y 

8<Z<32)  ,HRC)  , 

(Z(J’) 

y  IMAO  y 

(7(7!») 

,  1  MAX  A)  , 

(7  (35) 

y  JMAX )  y 

9  (Z (  3b)  t  JMA  XA>, 

(  Z(  3  7) 

y  KMA  X)  y 

(7(74) 

yKMAX  A)  y 

(7(79) 

y NMAX) 

OEQUIVAIENCE 

(  Z  ( 4  3 ) 

♦  NO)  , 

(7(41) 

y  KOTl.y 

(7(42) 

y IXMAX) y 

1  ( Z  ( 4  3 ) ,NOO)  , 

( Z ( 44) 

yNO^R)  , 

(  Z  (  45 ) 

, NIMAX)  , 

<Z(4M 

yNJMAX)  , 

2  (Z  (47)  ,11)  , 

( Z  ( <*8) 

♦  12), 

(ZUl) 

.13), 

(  Z  (5  0  ) 

yl<»l  , 

3(Z (51) ,N1 )  , 

(  Z  (  5’) 

♦  N?)  , 

(  Z ( 5T ) 

,N3)  , 

( Z  (54 ) 

y  N4)  , 

4  t  Z (55)  ,N5  )  , 

f  Z  <  5b) 

,NM, 

<  7(57) 

y N7)  , 

(  Z  (>  8  ) 

y  N8)  , 

5  (Z  (5  9)  »N  9)  y 

<Z(S  G) 

y  N 1 0  )  y 

(Z(bl ) 

♦  Nil)  , 

( Z (62) 

yNRM)  , 

6  (Z  (67)  ,TPA  ))  , 

(  Z ( o4) 

yXNRG)  y 

(Z(63) 

♦  SN), 

(Z(6o) 

yOXN)  y 

7<Z(67)  ,MOEP)  , 

(  Z(68) 

yRAOE  T)  y 

(7(69) 

y  RAO  '*  ))  , 

C  Z  ( 7  0 1 

y  OTR AO)  y 

8  (Z  (7  1)  ,RE  ZFCT) , 

(Z(72) 

yPSTOP) , 

<Z(7’) 

, SHELL) y 

(7(74) 

y BBOUND) 

9 (Z(75)  yTOZONC) , 

(Z(76) 

♦  ECO  y 

(7(77) 

,S90.H9)  , 

( Z (76) 

yXl) 

OCQNI  VALENCE 

(7(79) 

♦  X2)  , 

(Z(  89) 

♦  Yl), 

( Z  (  6 1 ) 

y  T2)  , 

1 (Z(8?)  ,C  A  BLN)  y 

<Z(H7) 

y  VISC )  , 

(Z (84) 

♦  T), 

(Z(85> 

ySMAX)  , 

2(Z  (86)  yHSG  1)  y 

(  ZH7) 

fWSGX) y 

(Z (38) 

y  GMA9R)  , 

( Z ( 89) 

yGHAXR) y 

life  C'  t  '  '  O  C' 


J(ZHu),MI,  ( 7  <  )  1)  f  32)  ,  <?<9?),S3),  (Z(93)»S4)« 

4CZ<  14)  ,S5)  ,  <Z<95>  ,  SO)  ,  <Z(9  6>,S7»,  <Z(97)*S8), 

?<Z<  30  ,f  91  ,  <!H9)  ,S1J)  , 

7(Z<1  ?fj»,  IlFITti)  ,  (Ztni)  tMFITTI  •  <  Z  ( 1?2>  ,NFl  TO  , 

H7<1  JJ>  ,NPA?0>  ,  <7(124  >  ,NPAPT»  ,  <7(1351  ,NPArtO 

raJIVALef»C:<°<  1)  ,r*AMD  ,<p<433)  ,<AMCI 
•OUn/AuMCE  <'1-M»L,FL£FT)  ,  <P  ■?  »3L  » SIGC), 

lO 1 1 v Ai_t  ic:  < xx <?» ,  x.iin ,  cyv<?>  *yci»  i 


1C  1 
It  - 
It » 
11' 
11  * 
12. 
1*. 
14  ’ 


14  : 
14* 


IF(  Ji  M  S  H 1  T  r:*«  1*>  »,1  (ji, 

IF  c S ,  :  »f.  L  [I.HT  3)  llfr.  1  0 

ip(  iri.  -c  u^,r^  m  :? 

Ir  (  1  J')^  (  rY  CL 7. ,  I  J  1l,T7  )  )  5  1  -*,  1,  1 1 
I F  <  Knot  YCl",  *21  |TL»  )12r,l*  , 
IF  (MU'JO  CY  :l  - 

if  <  Mn-,  l  ;<-,••<  r  m  42,1-4 

>r  1.J  I  .4 :  J 

Sc  IS  ul  SM  f  i 

[F(  i  AMO  14  4,  14-*,  1  ♦ 

(.all  sr-Arjc 

1,0  TO  Ll,3  1 


)UP  in  tap-;, 

1?  ’  0-  IS  lT,,hT  1 
P"!  I T L  -i  vCcr 
l  I F  (  )U  I  *»/>  <3,  (, 3 
•  1ASKS°ACl  4 
■*  WSs0”>y»t 

WPIT  (  ♦)  IS,  C'.'Sl  ,M  ’ 

?  v I T  (  - >  (  Z «  L  »  ,;.=  1»  Hi 

,  h»I  Tt  U)  (  HO  ,7(0  ,  A  1*  <  Ki  ,  A  I  <  <  <  »  ,  »  <  O  ,  •  T  A  (  O  ,  <s  1 ,  <  A  A  X  A  I 

K->I  T  <4  M  A  1A(  I»  ,  A  t  H  f  )  ,  All'  <  I  )  ,  \  tl(I),  Ail!  <  I  >  , 

l AMF  (  I  )  fA.ir,  (  T)  ,  T-l ,  KM  AY."  > 
t  Wi>  I  T  <  ,i<(  )  ,  <  M  O  ,T*tilO  ,  *  -  l  ,  !‘»AY) 

Hl’Ut  (  I,)  (/(<!,<•.*  IM.'V) 

WS=  j*  ’i  •  C 

wpi t-  (  *>  ws,w i, 
if < ; :nsr  s  msi  *»  ’m 

-E  2  T  f  ")  4 

n  a i r* i , cycle 

9121  F0-*M  T<*!*//////////l'3(l-.r«**********»7//*  CYSu  *F3,3*  (OiTNS  NEF  T 
•  af>  <.•  ///i  j  <1  3  i**  ****♦«  ** ) /*  :• » 

‘*A  IS  1. 
bO  TO  4 

2*  WU|[  T-  <r  ,  912  )  IC 
’1  f.o  t  ;  114 


1C  J  SE'-rt-  LICMT  > 

12.  Sc  l  *  LIOmT  4 
5UU1  uO  1^12  1=1,12 
o-  1  i  (,p<  1 1  =  i. 

CO  f,\’J  <=’,<11Y 
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ki  n  o 


m 


MS9*IU<K)**2*V(K>**2)/?,0 

6019  IF (  AMX  ( K) )  9917 ,6328,632  9 

6020  PR (5 1* PR  (5>*AIX(K) 

PR(b)*PP(6>+WS9*AMX(K) 

PR  <9 ) *  PR (8)+ANX(<) 

6028  CONTINUE 

PR<3>  =  PP  ( 1 )  ♦PR{2) 

PR(7>*PR(5)*PR<6) 

aN';-PR<7) 

PR  3)  *PR(1)*PR<5> 

PR  ( 1C  I  *PR  ( 2)  ♦PR  f  6) 

PR ( 11 ) =PR(  3)  *PR(7) 

PR  (12  )  *PR  (4)  4-PR(  8) 

WSA=(ETH-PR(il))/ETH 
PR(18)=(WSA-ONN)  /FLOAT(NPC) 

ECK=PR(13) 

ONMs  W  SA 
NPC=  t 

WRITE  (6 ,8116) PR03,NC,T  ,DTNA,TR Ai3 ,  OTR  A0,NR,Nl  ,  N2  ,  N3,  N4 
WRITE  (6,8117)  (»R(I)  ,1=1,8) 

WRITE  (6,8118) (PR(I) , 1=9,12) 

WRITE  (6,8119)  7AOE3,  RAOERjRAQET  ,'JVNAX  ,ETH,CC< 

1 1  =  S  8 
IX=S10 

WRITE  (6,  90  -40  )N13,  Nil,  II  ,12, 1 1,  IX 
60  9j  IF  (SENSE  LIGHT  4)530  0,136 
*♦**  EN9  OF  S  P  SU3R1UTIME 


5000  CONTINUE 

5001  WPITF  (6, 8116)^03, NO, T,0TNA,TRA(T,0TRA9,N9,Nt,N2,N3,N4 
5004  00  5C50  1*1,11 
SENSE  LIGHT  4 
J=  12  ♦  ! 

K=I2*IHAXfl*I 
CO  5046  L* 1, 12 
J*J-t 
K=<-IHAX 

50 1J  IF(4HX<K))  3917, 5)46,  5014 
50 It  IF (SE  NSE  LIGHT  4)5018,5019 
501j  WRITE  (6  ,8135)  I,X  (I)  »0<  (1) 

501)  WSsAMX  (K)/ (TA  J(I)*0Y  (J) ) 

WSAsTHETA(<) 

5011  WRITE  (6,  810  8)  J,U(<),tf(K)  ,  P  ( <)  ,  WS  4  ,  t  MX  (<)  ,  AI X  ( <)  ,  HS ,  T  (  J) 

504a  CONTINUE 

WRITE  (6,8404) 

J  *  12*1 
K  *  I2*INAX«-I*t 
00  5044  L* 1, 1 2 
J  =  J-i 
K  "  K-IMAX 

IF  (AHX(KI )  9917,5044,502? 

502  2  WRITE  (b,  84  JO)  J,A3A(K)  ,ANR(K»  ,ANC(K)  ,AM9(K)  ,  A  l£(  K )  ,  A1F(  <)  ,  A1*U) 
5044  CONTINUE 

IF  (CTCLE  -  CSTOP)  136.5,50,136 
5050  CONTINUE 

l3o  IF  (  ARSF (ECK) -JHIN) 140, 140, 9905 
C**»*  INI)  OF  L  P  SU3R0UTINE 


231 


u  o 


f* 

C 

C  ERROR 

9901  NK*1 lH 

GO  TO  9999 

C  ENERGY  CHECK 

99C  3  MKS1 36 

GO  TO  9999 

C  NEGATIVE  MASS 

9917  NK=60 15 

GO  TO  99  99 

9920  N<=904 

GO  TO  9°  99 

9921  NK=912 

GO  TO  9999 
992?  NK  =  9H 

GO  TO  99  99 
992 <  NK=922 

GO  TO  9999 
9929  NK=9?6 
9999  NR~6 

CALL  :RPr.R<N=VKl 
10000  HETtJPfl 


FORMATS 

Alt  4  FORMAT (1 4, ?El4.b , 3cli .e ,CU.b, El 5.6 ,E14.6) 

AlloOf-ORMAT(AHlPR03Lr1oXf  5HrvCLE9’<f  4HTIMEnx,-»90Tl3X#4MT9»f)ll*»5HTTI>A0l 
12X,2HNRfc  X,  ?HNl4X,2NN24<  ,2MNl4X,2HNW(F/.l  ,  1 11  ,’X  ,  1P4:  15. 7, 1 10  ,  ?  X  ,4 
216) ) 

81170FORNAT  (IhC  //17X2MA  I16X»?HAKl*«X,5HAI*AKl5Xt?MAf1/4M  DOT  3X ,  lPl»E  1  A#  7X3 
1M  X4X,4E10.7; 

51HaFORiAT<12X,  13M  — —  — - 5X,  1 1H  —  — - 5X ,1 3H - -- --5 

IX,  13M- - /7H  TOTALS1P4E18.7) 

9119  FORMA  T (?M0  // 1  oX  TRADER*  1 3X*T  AOE  R*  13X*RADr T *  12XM  AX  V  •  L*1 3X*ETM* 1 2X 
l*RCL  ERPOR*/7X5E14.7////) 

912 9  FORMAT  ( 1M  3//*  TA*>E4  OMMP  ON  CYCLEM5////) 

'12«.QFORMAT<3m  Kl?X,5HAM(K)liy,9MSJM  A  M (<  )  1 1*  ,  4MR  C< )  X  ,  WH9  (< )  /  (I  3 , 4  X, 

IIP4E18.7) ) 

0135.  FO°MAT  (1H  ///UM  OYCJ)  J=l,  I*// (  10F1?,  3) ) 

0133  FORMA  T(1  m  ///HH  Y<J)  J  =  3 , 12// (  KFl  ?  .3  ) ) 

01355FORMAT  <1H  ///M  I  sI3,fX,6HXU)  =  F  i 2.  3»  6x ,  7M9X C I )  =F12.3//3M  JPX, 
l*X*13X*Y*14XyP*13X*THETA*13X*A*1X*ilX*AlX*l?X*RH3*llX*Y*/) 

0201  FORM ATtllO ,2M  I54A2) 

0202  FO RMAT (1  0 X ,2h  I54A?)  ' 

0211  FORMAT(F7.t,I3,2rt  I54A?) 

0222  FORMATCF7. 1,3X, 2H  I5*»A?) 

8302  FORMAT (112,19  It) ) 

03C7CFORMAT(5H  <1  st?Et?.o  ,3X  ,4MX2  *E  12. 6, 3< , 6MXHAX  *E1 2  .  b ,6 X,W^TI  =;12 
1.6,3X,4H72  *ri2.o,  3X,6H /MAX  =E12.b) 

0309  FORMAT (1H  /) 

0603  FORMAT (I4,7E15*6) 

0404  FORMAT  <  1M  /,  2X ,  •  J*  ,  8X,  *  A*  ,14<  ,  *  3*  ,14  X ,  *0*  ,  1 4X,  *  J*  ,  1 4X,  *E*,  14X  , 

1  *F*  ,14X  ,*G*t  /) 

9063  FO*M AT (1  H  /  &  16) 

0999  FORMAT (15, IX, 1R5£1?*6> 

ENO 


232 


SUBROUTINE  TfPtU) 

CALL  TlfcE  <26H MOUNT  NEW  TAPE  IN  PLAC:  3F  » 

CALL  0ISPLAC5HTA°£  ,KJ 

PAUSE 

RETURN 

ENO 


SUBROUTINE  P0ME2<X,XX,N.J 
XX=L0GF(A9SF<X> ) /?. 33?  *  f  T  3  3 
N=XX 

IFC  XX)  1,2, 2 

1  N=N-1 

2  XX=X/10.**M 
RETUP N 

ENT 


SUBROUTINE  STATED 

OTHERS  ION 

UIMINSICN  AlX(o2JJ),AMV  (L2J3)  ,P(o?03>  ,')<C2CQ)  (62SQ), 

1AM  A  (620C  )  ,  A  Mb  (G’JO)  ,  AM"  (  G20  J  )  ,  AM  )  (6  23  C )  •  AME  (  >20  (J )  t  A  MF  <S  2  30)  , 


2AMG(t>2  )C  )  , 

Th'-TM  3 2 0 r | 

,  <Y  (213)  , 

XXC  101)  , 

YY(2u 11 

UI  1C  NS  ION 

X  ( 1 0  1 )  t 

y  ( ?  r  »i ) , 

Z<153) 

,  12(1 

pH)  , 

FLEFT  (20f<) 

01  TENSION 

TAUCt.  , 

P'_  <?C3)  , 

JL(?3C),  PM  <2C  3  )  * 

UR  (90(i) 

QI  M  iNSIC'l 

IWt  (l  j)t 

Y"  ilC  (  ’3  j) 

,  S I GC  ( ? 

".)  ,  f.AMC(20  0  )  , 

JX(100) 

COMMON 

l 

»  XX 

t  R 

,yy 

COMMON 

AI  ) 

,  AIX 

t  AM 

,'!  1ET1 

,  AM  X 

,  AREA  .. 

COMMON 

1IG 

,  no’HCC 

,ioxn 

,O0VK 

♦  KE 

,OVK 

COMMON 

jy 

,ry 

f  - 

tFO 

*  ps 

,FX 

COMMON 

TjT 

»p 

,  >A  1041 

,  P1-0 

,  »IOTS 

,33ABDV 

COMMON 

Jpi 

,PUL 

,  ITT 

tnr. 

,  2£Z 

,  RMO 

COMMON 

2L  ,  R  J 

,SIGtT3 .jFl, SWITCH  ,TAOLM 

COMMON 

TAU 

, TAUOTS 

, T  AUOTX 

tJK. 

,URR 

COMMON 

JT 

,UU 

,’JUU 

,  UTtF 

,  JVMAX 

»v 

COMMON 

VA30VE  ,V1LO 

,  4 EL 

»'/  K 

,  /  T 

i  VT£F 

COMMON 

44 

,WAI0  4 

,V\HL3 

fW? 

.M3 

,MPS 

COMMON 

MS 

,  WSA 

,MSN 

» WSC 

.XL 

,  XLF 

COMMON 

X  N 

»X* 

»TL 

♦  YLX 

,  y  n 

.  TU 

COMMON 

ZM  AX 

»  I 

1 1 1 

tlX 

.  I R 

,  IMS 

COMMON 

IMSA 

,  IMS  * 

,IWSC 

,IW1 

.  J 

,JN 

COMMON 

J? 

,  JP 

»<x 

*<P 

»*R 

COMMON 

MM 

*L 

♦  M 

,  1 A 

.  M3 

,  MC 

COMMON 

1) 

,  ml 

»  M? 

»N 

,MK 

, NKMAX 

COMMON 

MK1 

,  NO 

tNP 

,TW2 

COMMON  AM A, AMS, A 10, AM1,AME,AMF , AMO 

o  o  o  n  o  oooo 


U 


N 


QEQUIVAlE NCE 

(Z. IZf 

PP09)  , 

(Z(2) . 

CYCLE)  . 

<Z( 3) , 

OT), 

t(Z(4) , PRINTS)  , 

( Z (5  ) , 

PPINTL)  , 

(2(6)  , 

0UHPT7)  » 

(2(7) , 

CSTOPI . 

2(Z(8)  .PI  or)  . 

( Z< 9 ) , 

THZ)  , 

(2(10) 

»G  AH) . 

(Z(ll) 

,6AH0)  . 

3 (Z ( 1 2)  ,GAHX), 

( Z  ( 1  3) 

t  ETH)  , 

(2(14) 

,FFA)  , 

(Z(15) 

»FF9I  , 

4CZC16) .TN3Z) » 

( Z  (  17) 

,THXZ)  , 

(2(13) 

, XHAX) . 

(Z (1 9) 

,TXNAX)» 

5  CZ  (20  )  .TYNAX)  , 

(2(21) 

,AN11) , 

(Z( ??) 

,  MHX.i)  , 

( Z (23) 

,ONN)  9 

6(2(24 > ,0HIN) , 

(2(25) 

,FEF), 

(Z( 25) 

.  DTNA)  . 

€  Z«27) 

,CVIS)  , 

7CZC2A)  ,NPR)  . 

(7C?9) 

,NPRI)  . 

(2(30 

.HC), 

(Z(31) 

»NPC)  , 

•  C  Z  ( 32)  »NRC )  » 

(2(33) 

, IMAX)  . 

(Z(3«) 

,  I  HA  <A) , 

( Z (35) 

. JHAX  )  , 

9 ( Z ( 3o )  .JHAXA)  , 

(Z(  37) 

,  KMAX)  . 

( Z( 33) 

,  KMAXA)  , 

(ZC39) 

,NHAX> 

OfcQtJIVALENCS 

(Y(40) 

.NO)  , 

(Z(41) 

,KOT)  , 

(Z (42) 

, I XHAX )  » 

1(Z(43) .MOO) . 

(2(44) 

.NOPR), 

(2(45) 

,  NINA X)  , 

( Z  (46) 

,NJHAX)  , 

2(Z(4?I  ,11)  , 

(2(44) 

,12). 

(2(49) 

.13), 

(Z(50) 

.14)  , 

3CZC51)  ,N1)  , 

( Z  ( 52) 

»N2), 

(7(53) 

»  N3)  , 

( Z(54) 

.94)  , 

4<Z(55)  ,M5>  , 

(Z(i6) 

»N6)  , 

(2(57) 

.97)  , 

(  Z (5  A) 

. N8)  » 

5(Z(59)  ,N9)  . 

(Z  (60) 

.  N 1 9  )  , 

( Z(  60 

.Nil)  , 

€  Z(62> 

,NRH)  9 

6CZ(  ,TRA1)  , 

(  Z(o4) 

,  /(NRG)  . 

(Z (63 ) 

,  SN)  , 

( Z  (66) 

, OXN)  9 

7(2(67) ,P  AO  IP) , 

(Z(69) 

.PAOET)  , 

( Z (69) 

•  RA0E3)  , 

(  Z  (7  «j ) 

,OTRAO) , 

A ( Z  (  7 1)  .RFZFCT) , 

(2(72) 

,PSTO°)  , 

(2(73) 

, SHELL)  , 

(Z (74) 

» B60UNC ) » 

9(Z(75).TOZ  ONE), 

(2(76) 

,ECK)  , 

<  Z( 77) 

,  SBQcMO )  , 

(Z (7  A) 

,X1) 

OlQUIVAcCNC- 

( 2  (  7  91 

,X2)  , 

(7(40 

.VI), 

(Z(A1) 

.T2)  , 

l ( Z( 42)  .CABLN)  , 

(Z(13) 

,VISC)  . 

(Z ( A4) 

.T>, 

(Z(55) 

•  GHAX)  v 

2  (Z  (16)  . MSG1)  , 

(  Z»  47) 

.wsr.X) , 

(Z(  44) 

,  G4A1R)  , 

(  Z  ( 99) 

.GHAXR) , 

3(2(9' ), SI). 

(2(11) 

.52), 

(2(9?) 

,  S3)  , 

(2(93) 

»S4)  , 

4  (Z  (94)  ,S5)  , 

(Z  (  95) 

.56) , 

( Z( 96) 

.57)  , 

( Z (97) 

»S8)  9 

7  ( Z  <1 30  •  *9F  ITO)  , 
A(Z<t33),flPARO)f 


(Z<99) 
( Z  €  1  31 
(  Z  C 1 1*. 


.510)  , 
I.NFITTI  , 
I  ,H°APT>  , 


CZ(132)  ,NFITR>  , 
(Z(l*5)  , NPARR) 


vQUlVALtNC*<f'(?Jll  ,GAHC)  ,  (P (40 0  )  ,  (AHC ) 
LOUIVALEHC*!  CJR.UL  .FLEFT)  ,  (P3,*L.SIGC) 

EQ'JIvAlF  NC£  (XX(2) ,X(1)),  (YV(?J,Y(1)) 


M  =  -2 
L0<  *  -2 


IF 

(NC.GE 

.  96  0  • 

3.  AN9.HC.LT.  96?.  3)  H  *  NC 

IF 

(  K • EG  • 

752) 

10K*K 

IF 

(K.EO. 

753) 

LX*K 

IF 

( <*E0  • 

754) 

U<*< 

IF 

(K.CG. 

9021 

LX=K 

IF 

(I  .EG. 

903) 

LOK*K 

IF 

(K.EO. 

404) 

LJ<*K 

IF 

(K.EO. 

452) 

LO<*K 

IF 

(K.EO. 

453) 

L  X  *K 

IF 

(K.EO. 

454) 

L1K*K 

IF 

(K.EO. 

10?) 

LO<*K 

IF 

( K» EG . 

19  3) 

LX-K 

If 

(K.EO. 

904) 

L3<*K 

IF 

(K.EO. 

1521 

LOK*K 

IF 

(K.EQ. 

953) 

LOK  *K 

IF 

(K.EO. 

164) 

LOK*K 
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IF  CK.EQ.  1002)  LOK* K 
IF  CK.EQ. 1003)  LOK«K 
IF  CK.C0.1004)  LOK*K 
IF  CK.EQ.1j52)  LOOK 
IF  CK.EQ.1053)  L9K*K 
IF  CK.EQ. 1154)  L0K*K 
IF  CAIXCK)  .LT.0.3)  GO  TO  300 
C  COMPUTE  VOLUME  Of  SOLID  CARBON  IN 
I  •  VEL  *0.0 

VOL*TAUCl)*OV 

RM0G=2.3 

VOLG  *  AMGOO/’rtOG 


IFCNC.EG.M.ANO.K.EQ.LOO  PRINT  9  0  9 1 ,  VOL  ,  VOl  G ,  NC»  K 
0001  FORMAT  C 1H  ,/,2X,*VOL  =  *,El4. 4 ,2X,*VOLG  *  *,E14.4, 
1  2X,*NC  *  ’,I4,2X,*K  =  ’ » 14) 

IF(VOLG.GT  .O.Ol’VOL)  1(  ,  2'j 
13  VOL*VOL- VOLG 

C  COMPUTE  VALUES  FOR  GAMMA  AT  CELL  T E CPERA  TORE 
20  IF  (THETACO  .GT.200.  0  )  3C,28 


2  3  GMA  = 

1.4 

GM9  = 

1.4 

GMC  = 

1.4 

GM  3  = 

1.33 

GME  ^ 

1.  33 

GMF  = 

1.4 

GO  TC 

31 

33  CALL  GAMGAN  CTrtETACK) ,GMA,GMB,GM0,GM0,&ME,GMF) 
C  FIND  MAX  VALUE  OF  GAMMA 


31  GMAX  =  C.O 


IF  INC. EQ. M. AND. K. EQ.  L 0< ) PRINT  9  3  32 ,  THETA  CK  >  ,  GMA ,  GM3,  GMC, GM3, 

1  GMEfGMF 

0002  FORMAT  C2X, ’THETACO  =  * , F14. 4 , 2 X  ,  *GAMMAS  ARE  ♦,  6  (El  2.  3,  2X) ) 

IF  (GMA.GT.GMAX)  GMA  Xsf.MA 
IF  CuMcJ.GT  .GMAX)  G'1AXs.,MB 
IF  CGMC.GT.GMAX)  GMAX^GMC 
IF  CGM1.  GT.GMAX)  GMAXsGMO 
IF  CGME. GT.GMAX)  GMA X  =GM£ 

IF  CGMF.GT  .GMAO  i»MA  X*GMF 
WSGX  =  GMAX-l.J 

C  COMPUTE  NEW  CELL  TEIPERAT'IRF 

IF  (AMG(K) .LT.J.Jl’AMyC K) )  GO  TO  36 
IF  CTHETACO.GT.15G0  . )  8G,95 
8  J  CVGB  =  (4. 244.  J9E-4* T M_ T ACK) ) *4. 184E7/12.  U 
GO  TO  8H 

85  CVG1  =  (0.942.‘>55E-3*THETA(K))  *4.184E7/12.0 
GO  TO  98 

So  CVG9  =  l.G  — 

88  AIG  =  AIXOO  -  AMG<K)*CVG3»<  THETACO  -292.) 

IF  CNC.tO.H.ANO.K.EQ.L  OK)  PRINT  8  0  9  3,  AIG,  AI X  CK)  ,  AMGCO  ,CVG8,  THETA  ( IQ 
800  3  FORMAT  <2X,*AIG  =  * ,  £  14 . 4, 2X ,  *  A I  X  (O  r  *,  E  14.4,  2X,  *AMGC  K)  *  ♦, 

1  E14.4,2X, *CVG9  =  ♦, £12. 3, 2X, *THETA(<)  =  *,E12.3) 

AMOLAaCAMA  CK) ) /(29.0 *  CGMA-1.0 > ) 

AMOl  Os  (AMOCO  )/C32.0*  CGMfl-1.0)  ) 

AMOLCs  CAMCCK*l/(29.0*  (GMC-l.Q)  ) 

AMOLOsCAMO  (K) ) / < 44 . G * (GMO-1.  3)  ) 

AMOLF*  CAME  (K>>/ (19.0  MGME-1.0)  ) 

AMOLFs  CAMF  CK))/(2.  0MGMF-1.1) ) 
AMOL*AMOLA4AMOL94AMOLC4AMOL04AMOLE4AMJLF 

IF  CNC.EQ.M. ANO.K.EQ.L OK) PRINT  8 3 34, AMOL A ,  A MOLD,  AMOLC , AM OLD, 


jjg 
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« 


i  AMOL£,AMOLF, AMOL 

50  Oh  FORMAT  (2X,*THE  AIOlS  ARE  *,6<  £14.4, 2X>  ,*AMOU  *  *»E14.4> 

IF  (AMO.)  59, 19,  90 
59  TEMP  =  C.O 
GO  TO  92 
90  9  =  8 • 317E7 

TEMF  =  AIG/(R*A10L> 

92  CONTINUE 

C  B^IflG  GASES  AMO  SOL  I J  C  A  ROOM  TO  TEMPERATURE  EQUILIBRIUM 
UTIMl  =  C 
MTIME  =  0 

IF  (AMG(K) .LT,j*31*AMX**0)  GO  TO  280 
IF(A»)Sf  ( ThETA(K) -T'MP) .LI .13.3)  GO  TO  ?50 
T£MPG  =  TMET5(K> 

IF (TEMP.LT.TEM’G)  GO  TO  150 
11.  UTCM  F  s  A9SF(TEMP-TEMPG)/6.  J 
113  FLAG  =1.0 

TEM=TEMP-0.5*OTE.iP 

IF(NC.EQ.M.AN3.K.El.LO<>P?.INT  8  000,  TCM,  TFMP,  ITEM® 

8GCS  FORMAT  <2X,*T£M  =  *,  £  V- .  4, 2X,  *TEMP  =  *,£14.4, 2X, *OTEMP  =  *,E14.4) 
IFOJC.EO.M.AHq.K.E  O.LOO  PRIMT  niO,TEMPG,nTE1PG,<,NTIME,FLAG 
80  1  j  FORMAT(2X,*T£M?G  =  * , £14. 4, 2X, *0T  EMPG  =  *  ,  E  1<*  .  4 , 2X,  2  16,  Fb  .  2) 
call  CVGAM  <TE  1,CVA,OVj,Cy/C,nyi|,r#VE,CVr) 

OQA=  AMA<  <)  *CVA*OTEMP 
CQ  3=  AM  ho  *CV3*OTE  IP 
OQC=  AMC<K)*3V3*qTC  -IP 
OQO  =  AM')CO  *C 70*  )T£  IP 
OOE  =  AME(<»  *CVE*3TtMP 
OQF=AMF(K)*CVF*UTE  1° 

Q=  OO A ♦  OC  )♦  )QC^OQ. )♦'«“«>  |QF 

IFdIC.EO.M.AMO.K.E  l.LOO  PRINT  8  0  ^5  ,  T1A  ,  019 ,0  1C,  O  10, 3QZ,  DQF,0 
8C0i  FORM  A T(2 X ,6 ( El4. 4, 2* )  ,*'1  =  *,£14.4) 

IF  (AflG(K)  .LE.  J.  J.  OR.Cv/GO.LE.O  .  ))  GO  T}  ’03 
iJTEMPG=Q/(AMG(<)  *0  7G3) 

IF  (  JTEMPG.GT.  \  1SF  (TTM’-T  JM^G)  >  1 3 *2  »  1  «*  ' 

13/  PAT  =  (P.9*A3SF  (TEMP-T  ilPG)  )/  JTEMPS 
OTEMP  =  OTEM3*RA  T 
GO  TO  11  •• 

14  j  TE IP  =  TF  MP-OTEMP 

TEMPT.  =  TE  IPG+OTEM’G 

IF(NC.-:G.M.AN9.<.E  1.LOk.)PRMT  3306, AMG(K)  ,  CVG  J,  9TEM®3,  T  LMP,  TEMPG 
8006  FORMAT  <’X,MMi(K)  =  *,  E 14. h , 2X , *  CVU 3  =  *  ,  El  «♦ .  4 , 2X ,  *3TE  MPf,  =  *•, 

1  E14  .4,2X,  *T:mp  =  4,2X,*TEMPG  = 

NT  I  ME  =  NUME  i 

IF  (  AMSF  (TEM°-t"M°G)  •  lE.  16. 9)  GO  TO  202 
IF  (TEMP. LT.TE IPG)  150, U  0 
15,  OTEMP  =  AI3SF  ( TEM’G-T.EM’ )  /fc  •  j 

155  FLAG  =  2.0  — 

TEM=  TE  1P  +  0.5*DT£.MP 

IF  (NC  •  EC  •  M«  ANO.  <  •  EQ.L  OK  )  P°I  <T  8  Q3C  ,  TEN,  TEMP,  ITEM’, 

1  TEMPG, O TEMPG, <, MTIME, FLAG 
CALL  CVG  AM  (  TEM ,CVA  ,S  VM  ,C  V3  ,ZM  3 ,0  Vt  ,C  V-  ) 

QQA= AMA( K) *C7A*  3TEMP 
DQ(3=AM')(K)  *CV3*OTtMP 
OQC=AMC(K) *CVS*3TEMP 
GQO=AM'J(  K)  *CVO*0TE  IP 
OQC*AME(n)  *CVE*  OTEMP 
OQF  =  AMF(K)*C'/F*  OTEMP 


■  4 


* 


' 


K.”  4  .  '  ' 


8007 


BOC-J 


83  3  8 


1000  J 


Q«OQA>3Q94«OQCOQO*  3QE*<JQF 

IF(NC.EO.H  .AHO.K.EQ.IO< ) PRINT  8005,O3A,OrjB,OQC,DQO#  D3E,  OOF,  Q 
IF  (AMG(K>  .LE.O. J.OR.CVGB.Lc.O .9)  GO  TO  ?C0 
OTEMPGsQ  /  <  AHG  (K>  ?Q  VG8) 

IF  (OT£MPG.GT.AHSF(TEMP-TEMPG> )  16U,170 
RAT  =  (0  .9*A0SF(  Te HP- TFMPG) )  /QTEHPG 
OTEHF  *  OT £MP*RAT 
GO  TO  155 

TEHP  *  T CM*  ♦  OTEHP 
TEHPG  x  TE8PG  -  OTCMPG 

IF(NC.EQ.M.ANT.K.E  l.LOMPRINT  8006,AHG(K)  ,  CVr»  J ,  0  ,  TEHP,  TEHPG 

MTIH  -  x  MTIHE  ♦  1 

IF  C  ABSF  (  T  IHP-TEriPG)  •  L' • 1 . • 3  >  5  0  TO  2'^ 

IF  (TcMP.LT.TE’^G)  1,3,  ltG 
IF  CAH5C  <>  .IT.  ).01*A,1T(K)  )  GO  TO  205 
TEHP  =  (TE  IP  ♦  TEHPG)  •:  .5 
TEHPG  *  TEHP 

IF  (ABSF  (THETA(O-TEIP)  .L£. 1*1.0)  GO  TO  25C 
THETA  ( K)  =  THETA(K)  ♦  r.QMTEil®  -  THETA(O) 

VEL  =  \l  FL  ♦>  1.0 

IF  (MC.EO  •  M  •  AflO.  <•  GT.  LOK )  PPIMT  8  0  3  7 ,  THET  A  ( <’)  ,  TEHP  ,  VEL 

FORHAT  ( 2Xf*THETA(<)  =  * ,cl 4. 4 , 2T  ,* TE fP  =  * , 114 . 4 , * X , * V£L  =  *, 

1  F6.2) 

GO  TO  20 
POO  =  k  .0 
THKTA(l<)  =  50.1 
PRINT  8009, K 

FORHAT  (2X,  +  N£jATIt/&  AIX  IN  C*  LL*,I6,*°?ESSURt  SIT  TO  ZERO*) 

GO  TO  if.  COO 

THETA(K)  =  0. 3*( THETA (M  ♦  TEH®) 

P.TV  x  (P*THETA(<)  »  /VOL 
PA  s  (AMA(K)*RTV)/28.o 
PB  =  (AMN(  <)  *RTV» /T2. 0 
PC  x  (AMC(<)*RrV) /?8. 0 
PO  =  (AMO  (<)*PJV)/44, 0 
PE  =  (AMC(<)*RT7)/15.  - 
PF  =  (AMF(<)*RTV)/2.0 
P  ( K)  =  PA4-PB#pr#P04-PE4PF 

IF(  MG  ,  EO  •  M.  ANi),  <•  E  0.  L  OK” )  PPINT  8  0  0  8 ,  THET  A  (  K  )  ,p  (< )  ,  PA  ,  P3,  PC  ,PD,  PE  ,  PF 
FORHAT  <IX,MH£TA  =  *  ,•  l*.  .*♦  ,  i<  ,  *3  *  *  ,  *14  .  4  ,  l  <  ,  *  »  RES  5 .  AP£  »t 
1  6  (  E  12.  3 , 1  X) ) 

PETURN 

ENT 


SUBROUTINE  CV'GAM  I TMP ,C A » C3,CC, C9»C E, CF> 

T  *  TMP 
CALE  PG=4 • 134E7 
IF  (T.LT.50.0)  T  ^  50.0 
IF  (T.GT.6000. »  T  =  6000 .0 
TT=T*T 
ITT  =  T*T  T 

CA* <4. 4163+1. 7b75E-3*T-4.034UE-7*TT+3.0933E-ll*TTT)*CALERG/28.0 
CBs(4.bC83fl.a774E-3*T-3.69baE-7MI  +  2.6853E-il*TTT)*GALERG/3?.D 
CC-(4  .4239*1. 8o33c-3*T-4.4233E-7*TT+3.U83&E-ll*TTT)*CALERG/28.0 
CO=<5.84?3+5.9368E“3*T-1.52i7E-b*TTfl.2629E-t0*TTT>*CALERG/44.0 
CE=<*.  78  32+3.  9 .3  3£  -  3*  T-7  • 9342E- 7*TT  +  5 .4627E-11*  TTT)  *CAl„  ERG/ 16.0 
CF= (4,65 07  +9. Q593E-4+T-4. 9424t- 8*TT- 3 .1 041E- 12*TTT)  *CALERGF2.0 
RETURN 
END 


SUBROUTINE  GAMGA  t  mP,GA,63,GC,GQ,GE»SFl 
T  =  TMP 

IF  (T.LT.53.C)  T  =  5 j.. 

IF  (T.GT. 6000.0)  T  =  6.0C.0 

TTsT*T 

TTT  =  T*  TT 

CALE°G  =  4.184E7 

CPAs  (6.3931  +  1.  >739 E- 3 *T-h.1Q20 £-7 *T 1+3.1*75^-11* TTT )*CALERG/28.C 
CPBs  (b.c''4o+1.3603£-J*T-3.62i5Z-7*TT+2.59C2E-ll*TTT)  +CALFR3732.C 
CPC=  (6  .4  114  +  1 . 3637  1-  3*T  -  4.  <*326c- 7*T T+  3.  5C  74E-11  *TTT )  *CAL£R3/28.  C 
CP9=  <7.8263+5 . 96  7  V>  3*T-1. 56  7$ >6*T T +1. 3313E - 10* TTT) *CALERG/44.r 
CPE=  ( b.7  34 -3+3.99j7£-3*T-7.4975“ -7*TT  +  4.954  6E-il*TTT)  *CALERG/13.C 
CPF  = (6.554  3  +  «.61s2E-4*T-2.7312E-9*TT-3. 1 196E-12* TTT) *CALER3/2.0 
CALL  CVGAM  (T,C\/Af  CVl,nvC,CV  J,C\/E,CVF) 

GA  =  cpa/cva 
GB  =  Cep/CM 
GC  =  CPC/C/C 

go  =  cpp/nyo 

GE  =  C°L  /CVE 
GF  =  CPF/CyF 
RETURN 
EN9 
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SUBROUTINE  INTFACE 

0  I  H  E  H  S  I  >  1 

DIMENSION  ill(bZII)  ,V(62M)  • 


UNidtNi  9ane(62M)9anf<6?ii)9 

2AN9(l{|9l9THfU(92»l  93M200».K«<  1Q&>  t#  ME01I 


OiHENSXOH  X(199) 

9  Y(200) 9 

2(159) 9  IZ  (150) v 

FLEET (219) 

DIMENSION  TAU(IOO),  PL  (200)  9 

<JL(290),  PR(200)9 

URI290) 

OINENSIOM  INI (15) ,  YAMC(?Q0), 

SIGC(200) ,  GAMC(?00),  0X(1G9) 

COMMON 

Z  (xx 

»UR 

•  »R 

•  ?t 

COMMON 

AIO  , AIX 

•  am 

,TMETA 

9  AHX 

.AREA 

COMMON 

3IG  , BOUNCE 

t  30XN  ,93  VK 

,  3KE 

,OV< 

COMMON 

OX  ,0/ 

*  E 

•  FO 

»FS 

•  FX 

COMMON 

OUT  9P 

9  *A90VE  ,pBlO 

,PI9TS  ,PPA#OV 

COMMON 

PRR  9PUL 

.  39?  ,RC 

•  «C2 

,*MO 

COMMON 

RL ,RR ,S Ib,QQ00FL , SMI TCM  ,TABLM 

COMMON 

TAU  , TAUOTS 

,TAU0TX  ,U 

*u< 

,URR 

COMMON 

UT  ,UU 

,'JUU  ,UTEF 

,t)VMAX  9V 

COMMON 

VA  30V  E  ,  V9.0 

•  Vi 

*vx 

•  VT 

,VT£F 

COMMON 

VV  9  VVA30V 

, VV6L9  ,M? 

r  M3 

,NPS 

COMMON 

NS  , MSA 

,WS9  , NSC 

•  *L 

9xlf 

COMMON 

XN  ,  XR 

*YL 

*V.N 

•  *N 

•  ?u 

COMMON 

ZMAX  ,  I 

•  IX 

•  IN 

•  IR 

,  INS 

COMMON 

IMSA  ,  I HS5 

9iwsc  , in i 

•  J 

,  JN 

COMMON 

JP  ,JP 

•  < 

•  <N 

•  <p 

•  KR 

COMMON 

<RM  9l 

*  M 

,MA 

•  M3 

,MC 

COMMON 

10  9ME 

•  MZ 

•  N 

•  N< 

,N<MAX 

COMMON 

N<1  9N0 

,NR 

,  IN? 

COMMON  AN  A, AMI, 

AMC, AMT ( AN£, AMF 

9amg 

E  7 

U  I  V 

A 

L  E  N 

C 

E 

OEQUIVALE  NCI 

( Z, I Z, PROS) t 

(7(2) , CYCLE), 

(7(3), OT), 

1(2(4) ,PPINTS) , 

(  Z (5  ) ,  PRINfL) * 

(7(6) ,9UMPT7) 

• 

(2(7), 3 STO»), 

2(Z(M>  fPIOY)  , 

(Z (9) »  TMZ) , 

( Z ( 19 )  , SAM)  , 

(2(11)  ,GAMO)  , 

3(Z(1?)*GAMX) * 

(  Z(  13)  ,FTM)  , 

(Z(14),FFAI , 

(7(1?) ,FF9)  , 

4  (Z  (16)  *TM02)  * 

( Z( 1 7) , TMXZ) , 

( Z( 10) , XMAX ) , 

(7(19),T XMAX) 

5(2  (20),TYMAX)  , 

(  Z  ( 21)  ,ANi)N), 

(  Z(  2?)  ,  A  MX  1)  , 

(7(23), ONN) $ 

6(Z(?4) fOMIN) 9 

(Z(?5) ,FEF) , 

( Z( 26) , DTN A) , 

(7(27), CVISI  , 

7(2(28) ,NPR) 9 

(Z(  29)  ,NPRI), 

(Z(3N  ,NC) , 

(7(311 ,MPC)  , 

0(Z(32) ,)'RC)  , 

IH  S3)  ,  IMAX)  , 

(  Z  (  34)  ,  I  MAX  A) 

• 

(7435) 9 JNAX ) f 

9(2(36) jJMAXA) 9 

«  Z  €  3  7)  ,KMAX)  , 

(7(38), KMAXAI 

• 

( 2 ( 39) ,NNAx) 

0  EQUIVALENCE 

(Z(4Q)  9N0)9 

(7(41), KOT) , 

(7(42) ,IXMAX) 

1 (Z (43) ,NOO) t 

(7(44) ,N0PR), 

( Z (43 ) , NlM AX) 

• 

( 7 (46) ,NJMAX ) 

2(Z(47)  ,11)  , 

(  Z  (  4  0)  ,I?|, 

(Z(49),X3), 

(Z(50)9I4) , 

3(Z (51), Ni) , 

<  Z«  52)  9N2)  , 

(Z (53) , M3) * 

(Z(?4),*4), 

4  (Z  (55 )  »N5 )  t 

(2(56)  ,N6)9 

(Z(57)  ,M7)  , 

(2(31)  VN0)  , 

5(2(59)  ,N9)  , 

(Z(oG)  / N10 ) » 

(7(61) ,911)  , 

(2 (62) ,NRN)  , 

6 (Z (63)  ,TRA1)  , 

( Z (64) ,XNRG), 

(Z(65)  9  SN) , 

(2(66) *3XM) , 

7(2(67)  ,P A3ER)  , 

(  Z(60)  ,  PAO*  T) , 

(2  (  6>>,RA0EM» 

• 

(2(70)  ,3MAO) 

9(Z( 71) ,REZFCT) , 

(Z  (7  2)  9  RSTOP)  , 

(Z(73)  ,ShEl.) 

• 

(2(7%) ,l)OJN3 

9(  Z(75>  ,T02  3NE), 

(Z  (7  6)  ,EC<) , 

(7(77) 9> 90JN))  , 

(2 (70) t xi) 

JEQUI  VALENCE 

(Z(79)  tX2)9 

(7(00)  ,  VI)  , 

(7(81), Y2) 9 

1(Z(02)  ,C ARLN)  , 

(2(83)  (  VISC), 

(7(04) ,T)  9 

(2(05) ,GMAX ) , 

2(2(86)  ,MSGO)  , 

(Z(07) 9MSGX), 

(7(88)  ,SMAH) 

• 

( 2(99) ,GMAXR) 

3(2  (90)  ,S1)  . 
klZi  9*»)  »S5 )  . 

5 (Z (961 ,S9> » 
7(Z(13Q).  NFIT8), 
6(Z(133),NPAR9)  , 


<  Z ( 91) ,S2., 

(  Z(95l  f Sol  » 

( Z  ( 99)  VS10I  , 

( Z( 1 31 ) #NFITT ) , 
(  Z  ( 1 34 ) .NPART) f 


(Z(9?)  ,53)  , 

( Z( 95)  ,sn, 

( Z ( 132) .NFITR) , 
(Z  < 135) r  NPARR) 


<Z(93> ,S4)  , 
(Z (921 ,56)  i 


9 


EQUIVALENCES  (20  01  .GAME)  »(P(400) ,VAHC) 

EQUIVALENCE  CJR ,  UL  ,FLEF  T)  ,  (°R*>L,SIGC) 

EQUIVALENCE  (XX(2)  ,X(ll)t  <VY(?),Y(1)) 

EQUIVALENCE  (Z  ( 1 35  ) »  RAT  A) »  (Z  <  1 3  5) ,  R  AT9)  t  <Z(107)  .RAT3) 
EQUIVALENCE  (Z(lll) .RATO),  (Z  ( 101)  t  RATE)  y  ( Z  ( 111)  >  ,RA  TF) 
EQUIVALENCE  (Z( 111) .RATO ,  (Z(112) ,EMIA) ,  ( Z ( 11 3 ) , E9 19) 
EQUIVALENCE  (  Z  ( 1 14 )  .  £  Nl  C)  .  (  Z  ( 1 1  5 )  ,ENI0>  ,  (Z  (115  )  .  ERIE) 
uQjivalenc:  (Z(iiz> ,enif) ,  czcu*) .enio 

rQ'Jl  VAlENCE  ( Z  ( 1 20  )  .  ) ET  VcL) »  (  Z  ( 121 ) ,  ENS'JN)  ,  (Z ( 122) . EX£N) 
EQUIVALENCE  (  Z(l23  )  .  SX’HO)  .  (Z  ( 1  24)  ,  ThI  C<  )  ,  ( Z(  1 25)  »  A  JCEL) 
EQUIVALENCE  (Z(12&)  .totleni 


KNIT  =  14 
NIT  *  1 
JCEL  L  s  A JCEL 
JCELL  =  JCELL  -  4 
KCELL  =  2  f  (JCELL  ~  1IMMAX 
n  KKCr  L  S  KCELL  ♦  1 

IF  (A'lC(KKC£L).r.r.l.OOLl«AiX(KKC£L)l  GO  TO  20 
IF  (AHKKKCEL)  .GT,  0 . 0  0r  1*  A -U  (KKCEL  )  )  G3  TO  23 
IF  <A4£(«CELI  .GT.3.o4' 1*A1X(KKC:l)  )  GT  TD  23 
IF  I  AHF  (KKCED  »GT.  0,  00rl*ArTX(K<CEl)  )  GO  TD  2j 
IF  (AHG(KKCEL) .Lc. 0. 1Q01*A1X (KKCE.) >  G)  TD  130 
C  ••••••  T h£  QUANTITY  DF  air  IN  A  CELL  IS  TAKEN  TO  d:  *.033  TINES 

C  ♦•••*•  THE  mass  of  oxtgen  in  the  cell 
20  AIRNAS  *  A  id(KCELL) *4."63 

PROJHAi  =  AMX(nnOlL)  -  4 , C3 3# A M  1( «C£ L ) 

IF  ( AIRHAS.LE.PR90  IAS)  GO  TO  30 
HRTRAN  r  PJ01HAS/4.r 33 
AATRAN  e  3.Q33*99TRAN 
CT^AN  s  AMC(KKCCL) 

OTRAN  =  AH  )(KKCCD 
ETPAN  -s  AME(KKCEL) 

F  TRAN  s  AMFIKKO^LI 
GTPAN  s  AHG(KKOhL) 

ATRAN  =  AHA(KKCEL)  -  3.  043*403  ( KKCED 
GO  TO  4 t 

30  U9TRAN  =  A  T9 ( KCcLL ) 

AATRAN  s  3.033*HTRAi| 

FACT  P  =  A  I RMA  S/PROQMA  S 
CT  RAN  ■:  FACTR*  AHC(  KKCEL  ) 

OTRAN  =  F  ACT^MHKKKCEL  ) 
tTRAN  •*  FACTR*AH:(KKCEL ) 

FTRAN  =  FACTR’ANF (KKCCL 1 
GTRAN  a  FACTP*A9'.(<KCClI 

AT  RAH  s  FACTJ*(A  1A  (KKC-L  1  -  3  •  0  V3*  AN9  (KKCED  ) 

4)  AH  A  (KKCED  =  AIA(KKCEL)  ♦  AATRAN  -  ATRAn 
*  AiKKCELl  ♦  9JTRAN 
s  ATA(KCELL)  -  A ATRAN  ♦  ATRAN 


ANKKKCEL) 
AHA(KCIlL) 
AH 1( KCELL) 


*  A  H (KCELL)  -  B3TRAN 


AHC( KCELL)  =  A  13  (KCELL)  ♦  CTRA( 
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MiS-  * 


f  \iv  ? 


AMCCKKCEL)  *  AMCCKKCEL)  -  CTRAN 

AMO(KCELL)  «  AHOCKCELL)  ♦  OTRAN 

*M0( KKCEL)  *  AMO(KKCEL)  -  OTRAN 

AHClKCai)  «  ANE(KCELL)  ♦  ETRAN 

AME(KKCEL)  •  AME(KKCEL)  -  ETRAN 

AHFC  KCELL)  «  AMF  (KCELL)  ♦  FTRAN 

AHF(KKCEL)  «  AMF (KKCEL)  -  FTRAN 

AHG(KCELL)  *  ANG(KCELL)  ♦  GTRAN 

AMG ( KKCEL)  x  ANG(KKCEL)  -  GTRAN 

THASK  x  AHA  (KCELL)  ♦ANBC  KCELL)  ♦  AMC  (KCELL  )♦  AMO  CKCEU.)  ♦AHE  (KCELL) 

1  ♦ A MFC KCELL) ♦AMG (KCElL ) 

TMASKK  x  ANA ( KKCEL ) ♦ AH3 (KKCEL)  ♦  AMC ( KKCEL) ♦ AMI (KKCEL)  ♦AME(KKCEL) 
1  ♦AMF (KKCEL) ♦AMG (KKCEL ) 

IF  (  A8S(  TM  ASK-AMX  ( KCELL  ))•  GT.  1 »  OE-6 )  GO  TO  200 
IF  (ABS(THASKK-ANX(KKC£L)).GT.1.0E-6)  GO  TO  200 
KCELL  *  KCELL  ♦  1 
GO  TO  10 
NIT  x  NIT  ♦  1 

IF  (MT.GE.KNIT)  GO  TO  150 
KCELL  *  KCELL  ♦  IMAX 
GO  TO  10 
PRINT  8ft 00 

FORMAT  (  10X,*  SUBROUTINE  INT*‘ACE  C01>.ETEO  *) 

GO  TO  3C0 
PRINT  8801 

FORMAT  (10X,*  MASS  BALLANCE  NOT  CORRECT  ♦) 

RETURN 

ENO 


AMC(KKCEL) 
AHOCKCELL) 
AMO(KKCEL) 
ANE(KCELL) 
AHE(KKCEL) 
AMF  (KCELL) 
AHF (KKCEL) 
ANGCKCELL) 
AMG(KKCEL) 


150 

880  3 

200 

8801 

309 


8801 


C10X,*  MASS  BALLANCE  NOT  CORRECT  *> 


UUU  O  o  O  O 


SUBROUTINE  POC 

DIMENSION 


OIMENSIOM  Al X <6230 >, AMX (6209) *P <62001  ,0(6200)  yV (6200) , 
lAHA(62Ju> , AMH (o2jO),AMC(b20J)  ,  AMD(620f) yAHE(B200) , AHF(6200» , 
2AMG(b20C) , Theta (o’  00) ,1V (230) *  XX(lOi)  ,T  Y(  201) 


DIMENSION 

X(lJ  J), 

M2CU)* 

2(150). 

IZ(UO)  • 

FLEET (201) 

OIMENSION 

TALK  l  JO  )  , 

PL  (200) , 

ML  (208) 

y  PR (200)  . 

UR (200) 

01  ME  NS  ION 

INI ( 15)  , 

TA.MC(20L) , 

SIGC(  200) »  gam: 

(200). 

1AC100) 

COMMON 

Z 

,XX 

,  JR 

.PP 

$n 

COMMON 

AID 

,  A IX 

.AM 

, theta 

y  AMX 

.AREA 

COMMON 

11  G 

,  90UMCE 

«  3DXN 

,31V< 

,lKi 

yOV< 

COMMON 

OX 

.OY 

m 

»c 

.FI 

.FS 

yFX 

COMMON 

OUT 

,p 

, ’ABOVE 

.“3LO 

, PIQT5 

y PPABOV 

COMMON 

PRR 

,  PUL 

.  10  T 

y  REZ 

y  RH3 

COMMON 

RL,RRySlG,Q0°>3FL,  SWITCH 

yTAHLH 

COMMON 

TAU 

y  TAUQTS 

, TAUDTX 

»u 

yUK 

,URR 

CO  1MON 

JT 

yUU 

,UUU 

.UT£F 

yUVMAX 

.V 

COM  ION 

UA  10  V/£  ,VBL0 

,VEL 

»VK 

yVT 

•  1/TEF 

COMMON 

7V 

y  VVAMOV 

,  VV9LO 

»N2 

»*3 

»NPS 

COMMON 

MS 

y  MSA 

,MSB 

,WSC 

y  XL 

y  XLF 

COMMON 

XN 

,X^ 

yVL 

»YLW 

y  TN 

.YU 

COMMON 

MAX 

,  I 

.11 

,IM 

.IR 

y  IMS 

COMMON 

IHSA 

ylWSl 

y  I  NSC 

.INI 

y  J 

yJN 

CO  (MON 

JP 

y  JR 

.  K 

.KM 

,KP 

y  KR 

COMMON 

<RM 

»L 

.M 

.  M  A 

»  M3 

y  MC 

COMMON 

10 

.ME 

.  MZ 

»  N 

y  MK 

y NKMAX 

COMMON 

.Kl 

y  >10 

.MR 

,1X2 

COMMON  AM  A, AM 1, AM  C , AMO , A  Me , A MF , MMG 


E  Q  U  I  V  A  L  C  N  C 


0 EQUIVALENCE 

(Z,  IZ,PK03)  , 

(  Z  (  2)  y 

CYCLE) y 

( Z (3  )  y 

OT), 

1<Z<4)  .PRINTS)  , 

( Z(5),pRirlTL) , 

(7(6)  y 

DUMPT7)  , 

(7(7)  , 

CSTO»), 

2(Z(6)V?T  in, 

(  Z<  9)  »  TMZI  y 

(Z(10) 

y  GAM )  y 

(Z(ll) 

,GAH0), 

3(Z(12)  yGAHX), 

(Z(13)  , t TH)  , 

(7(14) 

,FFA)  , 

( Z (15) 

.FF9), 

4(Z(  16)  ,TMOZ)  , 

(  Z(  17)  ,T  IX Z 1  , 

( Z ( 18  ) 

yXMAX)  y 

(Z (1 9) 

y  TXMAX)  y 

5(Z (20) ,TYM AX) » 

(Z<21)  ,  A  tlM)  , 

(Z (22) 

y  AMX  M)  y 

(Z(23) 

yDNN) y  > 

6(Z(?4)  ,DMIN)  , 

(  Z (  35)  ,r"F)  , 

(7(26) 

ylTNA)y 

(Z(27) 

y £  VIS) y 

7 (Z (2  8) ,hPR) , 

(  Z  (2D)  yNPRl)  , 

( Z ( 3?) 

y  NC)  y 

(7(31) 

.MPC)  , 

a  cz  c 3?) ,npC) , 

(Z(1T)  ,IMAX)  , 

(  Z ( 34 ) 

yIMAXA) y 

(Z  (3  5) 

y JMAX), 

9(Z(?:.I  ,JMAXA)  , 

(Z(37)  , KMAX )  , 

(7(31) 

,  KM AX  A)  , 

(Z(39> 

y  NMAX) 

OEQUIVALf  MCE 

(  Z  ( *♦  0)  y  NO)  y 

(  Z  (  41 ) 

y  KOT)  y 

(Z(42) 

ylXHAX)  , 

1 (Z ( 4  3 ) ,NOO) , 

(ZU4)  ,NO»R)  y 

(Z ( 4?) 

yMlMAX)  , 

XZ  (46) 

y NJMAX) y 

2  (Z  (47), 11)  , 

(Z<48)  ,1?)  , 

( Z ( 49 ) 

y  I  3)  y 

(Z(56) 

.14)  , 

3  (Z  (5  1)  ,N1>  , 

(7(5  2)  ,N2)  , 

(Z ( 53 ) 

y  N3)  y 

(Z(s 4) 

*N4)  , 

4 (Z  (55), M5), 

(Z(36)  ,N6)  y 

(  Z(  57) 

y  M7 )  , 

(7(58) 

y  MO)  y 

5  (Z<59>  ,N9>  , 

(  Z  ( 60)  , Nil )  y 

(7(61) 

.Nil)  , 

(Z (a  2) 

.  MRM)  y 

6<Z<63),T»A1), 

(Z (64) , XNR5) v 

(  Z(  65) 

.SN), 

(Z( >») 

y  OXM)  y 

7  (Z  (67 )  ,P  AOER) , 

( Z  <  68)  yPADET)  , 

( Z ( 69) 

y  P  ADt  3)  y 

(Z (7  0) 

yOTRAO), 

8(Z(7t)  yREZFCT)  y 

<  Z C 72)  ,RSTOP)  , 

( Z ( 73) 

.SHELL) y 

(Z  (74) 

y  BBOUND  y 

9(Z(75) ,T OZOMl) y 

( Z ( 76) , ECK) , 

(7(77) 

y  SOO'JNl)  • 

( Z  ( 7  8 ) 

y  XI) 

OtQUlVALENCE 

(  Z  (  79)  ,X2)  y 

(Z( 80) 

»  Y  1 )  y 

(Z(81) 

*  Y2)  , 

1 (Z (8  2) y  C A0LN) t 

(  Z«  13)  ,VISC)  , 

(Z(  84) 

♦  T  )  y 

(2(85) 

y  GMAX  )  y 

2(Z(8b)  ,WSGD)  , 

(Z (17) ,WSGX) , 

(7(81) 

yGMA  )R)  y 

(Z (89) 

y  GMAXP) y 

3 (Z ( DO )  ,St)  , 

(  Z ( 9  D  ,S2)  , 

(Z( 9?) 

.S3), 

(Z (93) 

.S4)  , 

I 
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Mzm>*s9>,  <?n$!,sb»'  <z<9S)»s?>t  <z<9r>vs«> 

fiz<9  «»»S9tf  <Z09>  S10)« 

7(Z  ( 1  30) »  NF  IT'))  t  (ZU31)  ,NF!TT)  ,  <Z  <112)  »MFIH)  # 

•  <Z  Cl  33),NP4R3)  ,  (ZU30  fNPART)  ,  <2  (IIS) *NP4*R) 

fcQUI  VAlt  flC* €**€20  tGAMC)  ,  <p«400>  •  VAMC) 

EQ'II  V  ALlNCl  <<JR,U.,Fl£FT>,  <PR,»lf SIGO) 

EOUIVAlMCC  <XX(?)  ,XUI),  CVf  (2)  »Y<i) ) 

EQ'JI  VAlE  NC I  <ZUJg)»c>t):SUi! 


LOK  *  -2 
M  *  -2 

if  (ttc.r.e*  zoo. ).  ano.no.li  .75:. o  m  *  no 

KJOSUM  =  0.0 
VOLM  -  <*.5 
CO  1200  Ki'SKlAX 
MI  T  =  1 
TEMP--N  -  0.0 
TO  *  TK  TAio 
T3  =  Tf, 

IF  <TG.r.Ta>00)«0»  Tjsjr  u.i1.45*n-5.  !E-OrMG*n 

KOXO  =  ? 

koxco  *  : 

KO  X  H  X  L 

IF  (K.£C.  752)  LJK*K 
IF  <K.£Q.  75’)  n<  =  K 
IF  (  K.  cO  .  754)  LJK-K 
IF  <<.£(;.  10?)  LOK-K 

IF  (  K  •  £0  •  1 C  3 )  LJK-K 
IF  CK.EO.  104)  .JK=K 
IF  CK.IO.  352)  Ld<-K 
IF  (  K  «  £Q  •  153)  LO<*K 
IF  ( k. cQ  *  )5-.)  L  Jk-k 

IF  (K.tO.  1C?)  LOK  =  K 
IF  <<,£(.•.  »C3)  LJK-K 

IF  (K.EO.  104)  L)<=< 

IF  <  k.£ff .  152)  LOk  =  k 
IF  (K.EO.  15’)  LdK=K 
IF  (  <  *  £0  •  154)  lOK-K 
IF  IK. EG.  1 0 C 2 )  L  )<  =  K 
IF  ( k. £G . 1 JC  3 )  L  JK  =  K 
IF  (K.FO.lOCw)  LO<*K 
IF  fK.£C.i;52)  LOK-K 
IF  (K.EQ.1J53)  L  OK  =K 
IF  fk.  £0.1154)  LJK=K 
IF  fK.E0.250C)  LOK  -  K 
IF  (K. £0.3500  LOK  -  K 
IF  (  K. £0.450  i)  L  IK  =  K 

IF  (MC.EQ.  1.  AM  )•  \  .  £0.  LOK  )  PRUT  10 0 0  ,NI T  ,  A .1 X  <  K>  ,  4,14  (  <) ,  AIR C K) 
1  AMO  (K)  |AlO(<)fAi£<K)y  AMF  (< )  ,  A  15  ( < )  , T-MPiN,  AlXf <) 

IF  C  AMXCK)  .L£.  J.  1)  GOTO  123; 

»♦  TEST  FOR  CAPAJILITY  OF  COM  U3ST  ION  IN  CELL 
IF  CAMKK)  .LT.0.301*AMX(K))  GO  TO  1000 
IF  fAMG(K)  .Gr.3.  30  L*  Art  v  (K)  )  GO  TO  3 
IF  f  AMF(K)  .G£.  3.  OOtMMX  (K)  )  GO  TO  5 


IF  <AMC(K)  .LT  .  ).  30  1*AMX  (K) )  GO  TO  1000 
C  *****  COMPUTE  REACTION  RATES  AT  CELL  TEMPERATURE 
5  RAT  12  =  1.9E*16/SQRT(TG) 

RA  Til  =  RAT12*£X?(-5.92E04/TB) 

RATO 2  =  1.0E*16»EXP<-3.  5E  +  03/C  «.31E*07*T3>  I 
RAT04  =  t • 0E+19/TG 
RAT06  =  3.aE<-16/SQRT(TG) 

C  COMPUTE  AMOUNT  OF  ATOMIC  OXYGEN  AVAILABLE  FOR  REACTION 

AMOLE  =  AMA(K)/(  23.0*VOLM) 

BMOLE  =  AM9(K)/(T2«0*V0LM) 

CMOLE  =  AMC(<)/(23.C*VOLM) 

OMOLE  =•  AMO(K) /<4A.  0*VOLM) 

EMOLE  =  AMc(K) /<  16. 0*  VOLM) 

FMOLF  =  AMF(<)/(2.0*VOLM) 

CiMOL E  =  AMG(K)  /(12.G*V3LM) 

TMOLE  =  AMOLE4-9MOL£*-CHOLt*9MQLZ*EMOLE*rMOLE*SMO.  £ 

OOX  =  2.  Q*RAT  11*1M0LE*TM0LE*0T 
OX  =  VOLM*10Xn6.0 
NIT  =  6 

IF  (NC.EQ.il.ANO.K.EQ.LOK)  PRINT  300  3 , K,  THE TA(  K»  »  TG* RATH » 

1  RA  T12»  ThOLE «  MMOL  £  t  QOX  *  OX 

IF  (NC.EO..  i.ANO.X.EO.LOK  )  PRINT  3  00  0»N[  T,  A«RX  (  *)  .  AMA(  K) ,  ANBC  K»  , 
1  AMC  ( <)  ,A  10(0,  AME<K>,  AMFCKI  «  AMG(K>  ,TZMPEN*OX 


IF  (OX.GT.  AMO(<)  »  OX  =  AM3 ( K) 

C  *****  DETERMINE  WHICH  FUELS  ARE  IN  CELL 

IF  (AMC(K) f AHF (<) • L  E • 0«  0  C2*  AMX ( K) )  bO  TO  If 
IF  (  AMC(K)  ♦AMGOO.LE.  0.  3u2*AMXCKH  GO  TO  2t 
IF  (AMF(KH-AMG(K).LE.O.  002*ANX(KM  GO  TO  30 
C  *****  COMPUTE  DUANTITY  OF  ATOMIC  HYDROGEN 


HO  X  =  SQRT(FM0LE*EXP(-v.?2£-C4/TGM 
OH  --  1.5E-33 

C  *♦*♦*  COMMUTE  RATIOS  OF  PRODUCTION  0-  H?DtC02,ANl  CO 
H20  =  RATQ4*0H*H0X*  TMOLE 
CO  =  RAT06*GMOLE* JOX^THOLE 
COO  =  RATQ2*CMQL2*OOX*TMOLE 

C  *****  TEST  TO  DETERMINE  IF  ALL  THREE  FUELS  A*E  PRESENT  IN  THE  CELL 
IF  (AMG<K) .LE.O.  JOl* AMX(K))  GO  TO  40 
IF  (AMF<K>  .LE.3.001*AMXCKJ)  bO  TO  44 
IF  (  AMCOO  .LE.a.3ai*AMX<OI  GO  TO  40 

C  *****  COMPUTE  THE  AMOUNT  Or  ATOMIC  OXYGEN  iOING  TO  EACH  ACTION  - 
RSUM  =  H 20  CO  ♦  COO 
OXC  =  (C  0*  OX>  /RSUM 
OXCO  =  (COO*OX) /RSUM 
OXH  =  (H20*0XI /RSUM 

C  test  -OR  ENOJGh  OF  EACH  full  to  burn  t«e  above  oxygen 

7  AMGG  =  OXC/1.  554 

IF  (AMGCKI .LF. 1.02-151  GO  TO  • 

IF  (AMGG.GT.  AMGCO  >  GO  TU  40 
4  AMFF  s  OXH/A.O 

IF  <AMF(K)  .LE.1.0E-15I  GO  TO  9 
IF  < AMFF.GT.AMF<<>>  GO  TO  93 
9  AMCC  *  OX  CO/O  *572 

IF  (AMC(K) .LE.1.0E-19)  GO  TO  11 
IF  ( AMCC  .GT *AMC( <) )  GO  TO  130 
ii  nit  *  r 

IF  CNC.*  Q.M.AND.  <.EQ.L3<>  PRINT  3  00  0  *NI  T  ,1  MX  (<)  ,  AH  A  (X)  ,  AMMO  , 

1  AMC  CKI  ,A<lOOOfAH£fK»,  AMF<*C>,  AMGOO  , TENP£N, OX 

C  *****  ACCOMPLISH  ACTUAL  JUJN  FACTIONS 
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TE1»CM 
A*  GOO 
tHKK) 
MCI  Kl 
TEiPf  N 
AHFOO 
AH9(KI 
AH  COO 
TEHPEN 
AHC(kl 
AH3(KI 
AHOIKI 
HIT  *  2 
IF  CMJ. 

i  ahcck 

GO  TO  l 


*  TiHP£N  ♦>  S.JEld*A1G& 

*  AHGKI  -  AHGG 

*  A  13(0  -  OXC 

*  A1X(K) -414  (0>4H3(0*413C<>*A1- f  <}  -41-  CO  -  A1G(<I 

*  TEHPEM  ♦  l.424E12*AHFF 
x  AMFOO  -  4HFF 

*  A  19(0  -  OXH 

*  A1X(KI-A1A( <I-AH9(0-A1C(KI  -AlOfO-AMFCO-AHGCK) 
x  TiHPEH  ♦  1.02l11*AHCC 

*  AlCOO  -  AMCC 

*  419(0  -  0X00 

*  A1X  ( 0-414  (<I-AHB(0-A1E(0-A1C(<I-AHF(<)-A1G<0 

» 

EQ.H.ANQ.K.EO.lJK)  ®*I1T  4000, NIT,  AHX(K)  ,AHA(<I  ,AHB(K>  , 

I  ,410(0 ,41E(0, AHFfO,  AHG(KI  ,TEMPEU,  IK 

1J0 

(O  .tT. OX/1.3141  GO  TO  12 
OX/l.TJ* 

OX 


I 

i 


1.  IF  (41^(0 .tT. OX/1.3141  GO  TO  12 
AHGG  *  OX/1, 1]% 

OX  (*G  x  OX 
GO  TO  It 
12  AHGG  «  MG (O 

OX  US  X  l.n*.*MoG 
1*  TEHPfc.fl  s  TCNPtl  ♦  9.TE*1C*A1GG 
AH  G (  K I  s  A 1G( <)  -  AHGG 
AH  1 ( O  x  A  13 (Kl  -  0X1AS 

AHO  (  M  *  AiX(K)-4lA(k)“4H0(O-A1E(O  -A1F( Kl  -A  HS  (<1-419(0 
HIT  *  3 

IF  (IlC.t  3.  1.4  D.K.EQ.LOKI  P  MIT  403  0  ,NI  T  ,  AHX  (O  ,  414  (  <|  f  AHB(KI  , 
1  4  1C  (<)  ,  A  10(0 ,4H€(<),4HF(<I,41G(0  ,TEHPLN,OX 

GO  T0  11  JO 

21  IF  ( A1F(<> .LT.OX/I.O)  tO  TO  22 
AHFF  *  OX/4,; 

OX  IAS  x  OX 

GO  TO  24 

2’  AHFF  *  A1F (<) 

OX  IAS  X  1,:*A1FF 

2<«  TEIP'N  «  T:h»E*I  ♦  1  •  42**E1?*4HFK 
AHF(M  «  A  IF  (O-A.IFF 
AH  1(  <)  *  419(0  -  0X1AS 

AH!  (  O  *  AlX(0-4l4(0-AHC(0-4  13(<>-A1F(0-A19(0-A1S(KI 
HI  T  =  4 

IF  (  I  C.CO,  1,411. k.EQ.LOK)  P<1  4 T  400 0 »Nl T , A1X ( Kl , AHA ( <1 , AHB(K) . 
I  AHC(0  ,*  10( <1  ,44?  (O,  AHf  (0,4 1,(0  ,TrHPEN,OX 
GO  TO  11CC 

3  <  IF  ( AHC(KI  ,LT,OX/J,5T2)  GO  TO  32 
AHCC  «  0 X/ J.57  2 
0X14S  x  OX 
GO  TO  34 
3r  AHCC  «  AHC(0 

0X1AS  «  0.5?2*AHCC 
3 4  TEHPCN  «  TEHPE4  ♦  U02f  ll*4HCC 
ANCfO  x  4  1C  (Kl  •  AHCC 
AH  M  0*4  191  Kl  -  0X14S 

AHOfkl  *  A(X(0-AlA(KI-AHC(<l-Atl£(KI-Al9(<|-4HF(<)-AHG(<) 

IIIT  =  * 


IF  (FC.L'K  1,410.  K.CQ.lOO  PKI1T  1C  0  0  ,NIT  ,4HX  (Kl  ,  AHA  (Kl  ,  AHB(K)  , 
1  AHCIO  ,  A  tO(  O  ,  A1E  (  <>*  AHF  ( O  ,  A  1  *  (  Kl  ,  TC1PE1,0X 

a  A  91%  4  A  9  A 


GO  TO  1100 


IF  (AMG(<»  .IE.3. 3J1*AM* IK)>  GO  TO  50 
IF  <AMF  <<>  .U.0.301*AM*<<)>  GO  TO  60 
GO  T0  7( 

»]  c>S  Jrt  =  H’O  ♦  TOO 
OX 1  =  J. 

<o  *c  *■  : 

OXCO  =  ( GO 3*0X1  /MSUM 
IF  t<QXCO.£Q.l)  OXCO  =  0.0 
OX H  i  ( ht?  O^O  X>  /  PSUM 
IF  (K3XF.E3,1»  OXH  =  C.G 
GO  TO  7 

61  9 SUM  =  CO  ♦  030 
oxr.  r  (CO*  3X>  /  ISJM 
IF  (X-UXl  .£  J.n  OXC  =  f.,0 
0X00  -  (  COJ*OX) /r*SUM 
IF  (<JXCO. £U.l)  OXCO  =  O.C 
0 -  J  .  3 
KOXm  =  l 
GO  TO  T 

j  PSiM  =  f  O  ♦  n?3 
0X1  r  (C0*3XI/PSUM 
IF  (K0XC.E3.D  OXC  =  C.O 
0XC3  r  c.O 
<0<C()  =  1 

0  v.(  -  (H?0*0XI  /*SUM 
IF  (<0<H.F3.l)  OX  H  =  0.0 

GO  TO  7 

t:  AHGG  -  AM6(<» 

CXMAS  S  1 .  I3m  *  VI 3  G 

IE  \PrU  =  ~EMPE(  *  9.TE*1C*AM«S 

AM,  (11  *  C.O 

AMim  =  A  13(0  -  OXMAS 

AMC(<>  =  A  IXKl-AMA  (O-AHBOO-A  TO(KI  - AT E < < ) - AMP ( < ) - AM S < K ) 

OX  =  OX  -  3XMAS 

GO  TO  5t 

93  AMFF  s  A  ir  (<) 

OX MAS  =  0.1*AMFF 

TE  I  ’FM  =  T EfPE‘1  *  i.  •*?3E*t?*AMFF 

AMF(k)  =  C.O 

AM  1(0  -  A  13(0  -  OX  MAS 

AMECO  -  A  1X(<» -AMA(<)- AMB(<) -AMC(<> -AXO(<) -AMF(<) -AM&(<) 

ox  =  OX  -  3XM AS 
GO  TO  oC 

10  0  AMCC  s  A  MC (<} 

OX  MAS  t  0 , ?72* AMCC 

TE-MPcM  -  TEMPE  I  *  t.  0  2TMI*AtCC 

AMC(K)  =  0.0 

AMO ( K )  =  A13(XI  -  OXMAS 

AMO(K)  =  A  1X(0-AMA(<»-AMft(<»-AMC(KI-AMEC<»-AMF(<>-A1G<K) 

OX  =  OX  -  3 XMAS 
GO  TO  71 

1003  IF  (HC.EO.  I.AMI.K.EQ.LOK)  PRIMT  AC01 » K 

go  to  iireu 

IlUJ  A I X  (  K )  =  AIX(<>  ♦  TEMPilN 
t.  T M  r  ETM  ♦  TZfIPE.M 

pocsum  =  p  irsui  i  TEMPEw 

NIT  =  0 

IF  CNC.EO. M.A*n.<.E0.L3<)  PRIMT  000 0 , NI T , AMX CO , AHA ( <) , AMP(M , 
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coo  ccuc 


i  ANCOO  ,AM0<<),AME(<>, AMF  OO  ,ANG(<> ,TEHPEN,AIX(K) 

CONTINUE 

PRINT  4C02»POCSUf1 

DT THOM 


•009 
•001 
•  002 
•003 


RETURN 

FORMAT  (14»I?fl0(lX»£l?*5) ) 

FORMAT  (  IX  *  *N0  CON  9USTI  ON  IN  CELL  *  *  151 
FORMAT  (2X,*P9C  ENERGY  DFPOSITEO  *  ♦fEt6.6, 
FORMAT  (1X»I5»0C1X»E12«5)> 

END 


✓  ) 


SU'HOUTHE  STEADY 

DIMENSION 


DIMENSION  AIX(o2J0) , AMY (6200) ,P(620  0) ,U (620  3 ) ,Y ( 6203 ) , 
lAMA(C2t)0)*AM9(6293)*AMr  (620 J)  *AM9(6200)  *AME(5200>  ,ANF(6200)  » 
2flMb(6?90) * TMtTA(t>200) ,0Y  C23 0 ) , X X C 10 1 ) , Y Y ( 2011 


DIMENSION 

<(10))  * 

((2-:)  * 

2(150)* 

17(159)  , 

FLEFT  (200 

DIMENSION 

TAU(IQJ) * 

PL(?03I  . 

Dl.  (  2  )  0 ) 

»  R7(>3)>, 

J  R  ( 2  0  0 ) 

DIMENSION 

IWl ( 15 ) * 

YAMC  ( 290) 

,  5i Gc< 29 o >  *  gam: 

( 209)  , 

JX  (1)3) 

COMMON 

Z 

,  XX 

*  DR 

,R? 

*yy 

COMMON 

AID 

»  A  I  < 

*  AM 

, THETA 

»  AMX 

•  AREA 

COMMON 

MIG 

*  OOJNC: 

»  idxn 

,OD^K 

•  IKE 

9  DV< 

COMMON 

JX 

»DV 

*  - 

*  F  O 

*  FS 

*FX 

COMMON 

OUT 

fp 

*  PA90YE 

,R9LO 

.RIOTS 

9  PPABOY 

COMMON 

•*RR 

,PUL 

*  IDT 

t<2 

*RtZ 

9  RH3 

COMMON 

RL.RR 

iOfDOOOFL  , SWITCH 

•  T  ABl  M 

COMMON 

TA'J 

,  TAJlfS 

, TAUDTX 

*  D 

*  JK 

•  URR 

COMMON 

JT 

,uu 

*  JUll 

,*JTEF 

*  tJVMAX 

»  Y 

COMMON 

VA  JOtfE 

*V%0 

*  YEL 

,v< 

•  V/T 

•  VTEF 

COMMON 

VV 

*  VVA  9DY 

,VY)L0 

*N? 

*•(3 

9  WPS 

COMMON 

NS 

*  WSA 

,WS1 

,wsc 

*«L 

9  XLF 

COMMON 

<N 

*<w 

*YL 

,ylw 

*  YN 

»YU 

COMMON 

Z  M  AX 

*  I 

.11 

.IN 

*19 

•  INS 

COMMON 

INSA 

*  INS  9 

.IWSC 

»IW1 

•  J 

9  JN 

COMMON 

JP 

.  J« 

*  K 

*  KM 

*<R 

9*R 

COMMON 

<RM 

fl 

»  M 

*  (A 

*•19 

,MC 

COMMON 

MJ 

*MC 

*  MZ 

*  N 

*M< 

. NKM AX 

COMMON 

’!<  1 

,  NO 

.N* 

,TN2 

COMMON  AMA,AM1,AMC» AM) 

*  AMw* amf ( amg 

E  O  U 

I  V 

A  L 

E  N 

2  E 

OtQUlVAtE MCE 
1(2(4) ,  PRINTS)  , 
2(ZH).a!  JO  t 
■Y  €  Z  f  1 2 )  tOAHX), 
n(2»«6)*TM02) * 
5(  *TVMAX)  | 

0(Z(24) vONlN) f 
7(2(26)  t)'PP)  , 

•  (2(1?)  *NPC), 

9 (2  (It  )  #JMA  1A )  f 


( Z» 12* PROD  , 
(ZO)tPRIMTl)  , 
(2(9) » TM2l  • 
(2(13)  *FTMI , 
(2(17)  f  TM4  Z) » 
(2(21)  »  AMON)  , 
(2 (25) ,FLF»  , 
(Z(29) t  NPRI ) f 
(2(13)  ,  I  MAX)  * 
(2(17) fKMAX)  , 


(2(2) .CYCLE). 
(2(6)  •  0UNPT7)  t 
(2(13)*  GAM) * 
(2(14) *FFA) , 
(2(1*)) »  XMAO, 
(2(2?)* AMXi), 
(2(2o) »OTM) t 
(2 ( 30) *  NC)  * 
(2(1U)  ,IMA<A)  , 
(  ?  (  39 )  *<MAXA)  v 


(2(3 ) *DT) * 
(7(?) * CSTOP) * 
(2(11)  »GAHD)  , 
( 2(15) *FF9) , 
(7(19)  *TXMAX) 
(2(23) *0NN)  « 
(7(27)  fCYIS)  9 
(2(31)* NPC)  v 
(2(3$) 9 JNAX) 9 
(2(39)*  MMAX) 


OEQUI  VALENCE 

(Z(40) 

,  NO)  , 

( Z( 41) 

,KOT)  , 

€  Z (42 ) 

,IKMAX) , 

1(2(43) 

,NOO)  , 

( Z  (44) 

,NO»R)  , 

(Z(45) 

, MIMAKI  , 

(2(461 

,N*MAX), 

2  (  Z  (47  ) 

,11)  , 

(  Z  ( 48) 

,1*), 

( Z ( 49) 

*13), 

(2(51) 

•  16), 

3(2(51) 

»N  1 )  , 

(  Z  (  5  2) 

,N2), 

(Z<53) 

•  M3) , 

(2(56) 

,M4)  • 

4 (Z(55 ) 

,N5)  , 

(Z(5b) 

,N6), 

(2(57) 

»N7), 

(2(31) 

•  Ml), 

5 (Z ( 59 ) 

,N9), 

(  Z(6  0) 

, N10)  , 

( Z (61) 

•  Mil) » 

(2(62) 

,MRN)  , 

6 (Z (63) 

,TRA  1)  , 

(Z (64) 

,  XNRG)  , 

(2(65) 

,SN), 

(2(66) 

•  OXM)  , 

7(Z(67) 

,PA0ER)  , 

( Z  (68) 

, PAOET)  , 

( Z(69) 

, RAOE9) , 

(2(70) 

,OTRAO) , 

8 (Z ( 71 ) 

,REZFCT), 

( Z  (7  2) 

,  RST OP)  , 

(Z( 73) 

, SHELL )  , 

(2(74) 

•3B0UND) 

9 ( Z ( 75  ) 

,T OZ ONE) , 

( Z  ( 76) 

,FCK)  , 

(ZC77) 

»  SdO'JNJ)  , 

(Z(70) 

,<1) 

OEQUI  VALE  MCE 

( Z  ( 79) 

,X2), 

(Z( 00) 

,  Y  1)  , 

(Z(6l) 

»**>  , 

1  (  Z  (  82) 

, C  AOLN)  , 

( Z  (  3  3) 

,VISC), 

(Z (04 ) 

,  T)  , 

(2(65) 

,GMAX)  , 

2( Z(8  6) 

,W SG9)  , 

(  Z  (  8  7) 

,  W5GX )  , 

( Z ( 63) 

, GMA1R)  , 

(Z (69) 

,  GHAXR) , 

3(Z(90i 

,St), 

(  Z  ( 91) 

,S2), 

(Z(9») 

,S3)  , 

(203) 

,S4), 

4  (  Z  (  9  4 ) 

,S5 )  , 

(  Z( 95) 

,S6)  , 

( Z  ( 96 ) 

» S7)  , 

(2(97) 

•  SO), 

5  (Z ( 9ft ) 

,S9)  , 

( Z  ( 99) 

,S10), 

7  (  Z<  1  30  I  ,  NFIT4)  ,  <Z  (131)  ,NFITTl  ,  (Z  (  H2I  »NF  £  T  R>  , 

KZ(  133)  ,  NPAR3)  ,  (Z(13<),NP4RT),  (Z  (  135)  ,  MPAR>) 

LQtiI  VAlE  NCE(P(2Q0>  ,GAMS)  , (P(400)  ,YAMC) 
lQUIVALENCE  (UR,UL,FLEFTI  ,  (PR, aL»  SIGC ) 

•EQUIVALENCE  (XX  (2)  ,  X  (1)  )  ,  (  YY (?)  ,  Y.(  1)  > 

VEL  =  3.0 
FLAG2  =  12.0 
20  FLAG1  *  0.) 

3.  RE  AO  (4)  PR  ( 1 ) »  PR  ( 2)  *  N3 

WRITE  <6,8J06)  PR( 1 ) , P* ( 2) ,N3 
IF  ( PR (1 ) • EQ. 555 • 0 )  40,31 

31  IF  (PR(t  >  .EQ.Goo.O)  32,35 

32  WRITE  (f  ,  8j0  9) 

GO  TO  1CC0 

35  FLAGl  *  FLAG1  ♦  1.0 

IF  (FLAGl  -  FLAG2I  34,34,9901 
34  WRITE  (6,8100  FLAGl 
GO  TO  3C 

4)  RE  AO  (4)  (Z(I),I=1,3) 

WRITE  ( b  ,8104)  <Z(I),I=l,3l 

RE  AO  (4)  r:V(,l»J‘1,  )UT,  )UH,P(I)  ,OJM,  I*1,<MAXAI 
WRITE  (b,V96)  (P(I),  1-1,3) 

P£  AO  (4)  OUh 
READ  (4)  OJM 
RE AO  (4)  OJM 
IF  (VCD  51,53,  ->0 

5)  00  5'  I  3  l,K1AX 
65  AHX (  1 )  =  P(I) 

VEL  r  l.  0 
WRITE  (6,8102) 

GO  TO  JO 
6J  SUM  *0.0 
I  *  3 

73  00  75  J  *  ’,JMAX 

<  *  I  ♦  l  *  (J  -  1)*IM»X 
OIFF  s  A  MS  (P(<)  )  -  AJS(AMX(<)> 

75  SUM  »  SUM  4  A3 »( JIFF  I 
00  WRIT  (6,8)02)  PR(?I,  SUM 


»Ti 


IF  CCSTOP  -  PR<2) i  100P»100»»99 
90  00  95  I  <  l,«NAA 
95  ANX(I)  r  P«I> 

GO  TO  2G 

9901  WRITE  (toiOaOl)  FLAG? 

GO  TO  1000 


•001  FORMAT  <22*0555  MAS  NOT  FOUNO  IN  ,F5.1,7*  CYCLES  » 

•002  FORMAT  (17H0C/CLE  NUMBrR  IS  ,F5. 0 ,5X,22HSUH  OF  DIFFERENCES  IS 

1  0®£12. 6  //I 


•004  FORMAT  < 16*0666. 0  NAS  FOUND  /) 

•006  FORMAT (1  OX  ,16 MFTRST  RECORO  IS  ,  ?E  12 . 4  ,1 6 ,  ✓  > 

•  100  FORMAT  ( 10Xf  9MFL  AU 1  IS  ,F5.1,/) 

•102  FORMAT  <10Sf14HVtL  SET  TO  1.0  /) 

•104  FORMAT  ( 10  <»  25HT HE  FIRST  3  Z  VALUES  ARE  ,3E12.6,/) 
•10b  FORMAT  C10K,25HTME  FI®ST  3  P  VALUES  ARE  »3E12.6t/> 
1003  REMIND  4 


0 


RETURN 

END 


SUBROUTINE  ERRERCNR.NK) 

CALL  QIS®L  AC5H  MR*  |NR» 

call  timeuaherror  in  shell  » 

CALL  OISPLAI5M  N<*  »M<> 

PRINT  *00»  NR,  N< 

•  003  FORM  *T  ( 1 H  ,/,5X,*NR  *  *»I4,4«,*MK  *  •,!«♦*//» 
CALL  P^INTZ 
STOP 
END 
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Figure  D12.  Mass  Distribution — Species  G  (Carbon) 
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